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Preface 


This handbook is a sequel to an earlier volume entitled 
"A Theory of Supercritical Wing Sections, with Computer Programs 
and Examples." Since the completion of the first volume, which we 
shall refer to as Volume I (cf. [1]), some effort has been made to 
improve our airfoil design program. A number of more desirable air 
foils have been designed. In addition several of our wing sections 
have been tested in wind tunnels. We should like to make this 
material available here, since it is more convenient to use the 
design program in conjunction with data for a fairly broad range of 
examples. Moreover, we have developed new analysis programs that 
supersede our previous work. 

Chapter I is devoted to a brief discussion of the mathematics 
involved in our additions and modifications. There is only a mini- 
mum emphasis on theory, since the representation of important 
physical phenomena such as boundary layer shock wave interaction 
and separation is partly empirical. It is our contention, however, 
that the computer programs provide a better simulation than might 
have been expected. Chapter II presents numerical results found by 
our new methods, as well as comparisons with experimental data. 
Chapter III contains a discussion of the use of the program 
together with Fortran listings. 

We should like to acknowledge the support of this work by NASA 

under Grants NGR-33-016-167 and NGR-33-016-201 and by the AEC under 

•.... ' 

Contract AT ( 11-1) -3077 with New York University. Many of the 
experimental results presented in Section 3 of Chapter II were made 
available to us by J. Kacprzynski of the National Aeronautical 
Establishment in Ottawa. Some of the test data shown are British 
Crown Copyright, and are reproduced by permission of the Controller 
R & D Establishments and Research, Ministry of Defence (PE) . The 
final example was prepared by John Dahlin from data obtained by the 
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McDonnell Douglas Corporation at the National Aeronautical Estab- 
lishment in Ottawa. Figure 6 in Section 6 of Chapter II was 
given to us by Bill Evans of the Grumman Aerospace Corporation and 
is based on an airfoil designed by Don MacKenzie using our method. 
We are indebted to Ray Hicks, R. T. Jones, Jerry South and Richard 
Whitcomb of NASA for much encouragement and helpful advice. Dan 
Goodman and Steve Korn have assisted us in the preparation of 
technical data, and Connie Engle and Farntella Graham have typed 
the manuscript. 


New York, N. Y. 
November 1974 


Work supported by NASA under Grants 
NGR-3 3-016-16 7 and NGR-33-016-201 . 
Computations performed at the 
AEC Computing and Applied Mathematics 
Center, New York University, under 
Contract AT(ll-l) -3077. Reproduction 
in whole or in part is permitted for 
any purpose of the United States 


Government. 
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I . THEORY 


1. Introduction 

In Volume I (cf. [1]) we have presented a mathematical theory 
for the design and analysis of supercritical wing sections, and we 
have included examples and computer programs showing how our 
methods work. By now several of the first shockless airfoils we 
designed have been tested with some success, and satisfactory agree- 
ment of the results of our analysis with experimental data has been 
established. General acceptance of supercritical wing technology 
by the aircraft industry encourages us to make available in this 
second volume an improved series of transonic airfoils as well as 
extensions of our analysis program that include three dimensional 
and boundary layer effects. We hope that the data we have compiled 
will be helpful in such projects as the development of a transonic 
transport with an oblique supercritical wing, which could operate 
economically at nearly sonic speeds. 

The purpose of this book is to put our work on transonics in a 
more definitive form. For design we introduce a better model of the 
trailing edge which should eliminate a loss of fifteen or twenty 
percent in lift experienced with previous heavily aft loaded models, 
which we attribute to boundary layer separation. We also indicate 
how drag creep can be reduced at off-design conditions. A rotated 
finite difference scheme is presented that enables us to apply 
Murman's method of analysis (cf. [13]) in more or less arbitrary 
curvilinear coordinate systems (cf. [5]). This allows us to handle 
supersonic as well as subsonic free stream Mach numbers and to 
capture shock waves as far back on an airfoil as we please. More- 
over, it leads to an effective three dimensional program for the 
computation of transonic flow past an oblique wing. In the case of 
two dimensional flow we extend the method to take into account the 
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displacement thickness computed by a semi -empirical turbulent 
boundary layer correction. Extensive comparisons are made with 
experimental data that have become available to us in our design 
work. Excellent agreement is obtained even in situations where the 
theory is not on an entirely firm footing, for example when the 
shock waves are not defined sharply. Our contention is that the 
programs furnish a physically adequate computer simulation of the 
compressible flows that arise in practical problems of transonic 
ae r o dy n ami c s . 

In Chapter I we describe new theoretical contributions under 
the assumption that the reader has some familiarity with Volume I. 

In Chapter II we present a series of our latest supercritical wing 
sections together with a collection of comparisons between theoreti- 
cal and experimental analysis data. Chapter III is devoted to 
listings of new computer programs as well as a brief manual for 
their operation and an update of the design program listed in 
Volume I. The emphasis of this handbook is more on the numerical 
data we have compiled than on the explanation of the relevant 
mathematics . 

2 . Models of Shock Structure 

For the mathematical analysis of transonic flow past bodies in 
space of two or three dimensions it is interesting to consider 
models of shock structure based on an ordinary differential equation 
for a potential function <f> depending on just one variable x . 

In this connection we ask for a solution of the equation 

<*x>x- ° ' 

suggested by the transonic small disturbance equation (cf. [13]), 
that satisfies three boundary conditions of the form 
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<[> (a) = A , <J> ' (a) = C > 0 , <J>(b) = B 

at the ends of some interval [a,b]. If we allow for a shock wave 

2 

across which <j> and <f> are conserved, but <f> decreases, there 

x x 

exists a unique solution of this problem for values of the prescrib- 
ed constants A, B and C in the range 

| B - A | < C (b - a) . 

The answer consists of two straight lines with the slopes C and -C 

which meet at the uniquely determined shock point 

_ a+b B-A 

0 2 2C ‘ 

(See Figure la.) The problem has an analogy with transonic aero- 
dynamics if we think of the interval of positive <|> x as represent- 
ing supersonic flow and the interval of negative <|> as represent- 

ing subsonic flow. 

Our problem in ordinary differential equations can be used to 
test the validity of finite difference schemes for the numerical 
analysis of transonic flow. We shall exploit such a procedure to 
discuss the method of Murman and Cole [13]. Let equally spaced 
mesh points be laid down on the interval [a,b] and denote by ij>j 
the values of the potential <f> at these points. We call the jth 
point subsonic when ‘f’j+q < ^j-l an< ^ supersonic when 't’j+p > ‘(’j-y 
According to one version of the scheme of Murman and Cole our 
differential equation, which can be expressed in the quasilinear 
form 



is approximated by the second order accurate centered relation 

( VrVi’ ( *j+r 2 V*j-i ) = 0 

at subsonic points, but by the first order accurate retarded rela- 


tion 
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(a) Exact solution. 



(b) Forward shock solution. 



(c) Smeared shock solution. 


Figure 1. Solutions for one dimensional model.. 
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( *j+l' ( *j~ 2 ^j-l + < ^ > j-2 ) = 0 

at supersonic points. The two relations are equivalent at the so- 
called shock points where ‘f’j+i = • 

One can attempt to find a solution of our boundary value prob- 
lem for the Murman-Cole difference equations iteratively by march- 
ing repeatedly from left to right solving successively at each mesh 
point for the unknown <J> ^ . Such an iterative scheme can be seen 
to converge monotonically from above when an initial guess of ^ is 
made that is big enough and is concave. However, the answer is not 
unique because the shock condition has been lost through failure to 
use the conservation form of the equations . Any two straight lines 
satisfying our three boundary conditions and meeting at a mesh 
point define an admissible solution if the shock inequalities 


4> ■ — <t> - 0><(>.-<J> • . T > 0 
3 1-2 v J+2 

hold at that mesh point. (See Figure lb.) Moreover, there are 
valid solutions containing a segment of shock points on which (Ji^ 
remains constant. These smeared shock waves terminate with one 
higher value and then a downturn leading to a supersonic point 
and a shock point followed by subsonic points. (See Figure lc.) 
They need not fulfill any shock relations whatever, and they seem 
to occur in the applications. 

One way to. remedy the situation we have just described would 
be to replace the scheme of Murman and Cole by a finite difference 
analogue of the ordinary differential equation 


(<P ) = h <t> 

V X X T xxx 


which is in conservation form and has been provided with an arti- 
ficial viscosity term on the right. The small positive factor h 
should be of the same order of magnitude as the mesh size. The 
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general solution of this equation is 


x-x Q 

<p = - h log cosh ) + <p n 

y 0 u 


where Xg , y Q and <p g are constants of integration that can be 
chosen to satisfy our three boundary conditions. As h -*• 0 the 
solution approaches the two straight lines determined by the 
original shock structure problem. However, the truncation error 
of the artificial viscosity method tends to be larger than that of 
the Murman-Cole scheme, which is comparable in the present context 
to a finite difference approximation of the equation 


i (b = h e d> d> 

*X r XX X XXX 


where e = 0 if 


< 0 but e = 1 if 


> 0. This is not a 


x x 

conservation law because the variable factor e is not differen- 
tiated. 

An advantageous compromise would seem to be to develop an 
intermediate scheme suggested by the conservation law 


, , 2 . .3 , 3 , 2 , 

<*x>x = h H (E 31 V ' 

in which e is now differentiated. The appearance of e in the last 
equation means that the solutions should include a shock point Xg to 
the left of which e = 1 and to the right of which e = 0. The deri- 


vative 


should approach zero from the left at x n , but may be 


, x - Vg 

negative to the right. On the other hand, the conservation form of 

2 2 

the equation implies that $ “ he(<J> ) as well as <p should 

X XX 

remain continuous. Applying our boundary conditions, we conclude 
that 


, 1 - e exp(x-x n )/h 

d > 2 = C T 

y x 1 - exp(a-Xg)/h 

and that the location of the shock point x Q is defined by the 
nonlinear relation 


b 

B-A f 

1 — e exp(x-Xg)/h 

1/2 

dx 

c j 

a 

1-exp (a-Xg) /h 

2e-l 
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In the limit as h -*• 0 this reduces to our earlier formula for x^ . 

To implement the above idea as a difference scheme we use 
central difference formulas to represent the differential equation 
on the left-hand side, but retarded differences to represent the 
artificial viscosity on the right. Taking h as the mesh width, we 
obtain 

( * j+ r4>j )2 - (<t> j — ^ j—3.) 2 = Pj - Pj.i" 

where 


Pj = max {0, (<f>j +1 -4>j_ 1 > ) (4> j + i~24> j_i> . 

Here p^ reduces to the left-hand side at supersonic points for 
which ‘(’j+i > ^j-i ' so t * le scheme is effectively retarded in the 
supersonic zone. At the shock point, however, Pj = 0 and Pj_^ ¥ 0 
so that the sum of the central and backward difference operators is 
obtained, corresponding to the shock point operator introduced by 
Murman (cf. [12]). It can be verified that this difference scheme 
admits a unique solution which satisfies the correct shock jump 
condition . 

Now consider the problem of calculating the transonic flow 
past a body in space of two or three dimensions. The solution 
satisfies a variational principle which asserts that the integral 
of the pressure p over the flow region is stationary with respect 
to perturbations of the velocity potential $. A discrete version 
of this principle leads to second order accurate finite difference 
equations in conservation form, and it is especially helpful in 
treating the natural boundary condition on <f> and the free surface 
condition at a vortex sheet (cf. [3]). For transonic flow the 
principal part of the Euler equation coming from the variational 
principle should be left as it stands. Instead of directly retard- 
ing the difference scheme for the differential equation in the 
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manner of Murman and Cole, a suitable artificial viscosity should 
be- added in conservation form. By using retarded difference 
expressions to represent the viscosity we then arrive at an effec- 
tively retarded scheme in conservation form. 

To handle shock waves according to the theory outlined above 
it is suggestive to look for appropriate weak solutions of a 
partial differential equation for <|> of the invariant divergence 
form 

V(p V<J>) = h V(pg)] , 

where q = | V | is the speed, p is the density defined by 

Bernoulli's law, h is an artificial viscosity coefficient, and e 

vanishes when the flow is subsonic but is positive when the flow is 

supersonic. The introduction of the one sided term e is motivated 

by the decision process of Murman and Cole, while the highest order 

derivatives appearing in the artificial viscosity are equivalent to 

2 

a derivative of the Laplacian V <j> in the direction of the flow. 

In the next section we shall construct a convergent iterative 
scheme to solve the resulting difference equations by introducing 
additional terms that involve an artificial time parameter. 
Experience shows that the term on the left can be replaced by 
a quasilinear differential operator not in conservation form 
without entirely losing the shock condition, provided that the 
operator is represented by a suitably centered finite difference 
expression and a conservation form is retained for the artificial 
viscosity. The mean value theorem can be applied to expressions 
of the form f j + i/2 - ^j-1/2 appearing in the difference 
equations for the conservation form, where f is a function 
of the velocity components. It can then be- deduced that in substi- 
tuting the quasilinear form for the differential operator the 
shock jump condition would be retained to second order in the shock 
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strength if p/c were constant, where c is the local speed of 
sound. This is the case for a ratio of specific heats y = 2, 
as in the shallow water equations. We shall subsequently refer 
to schemes of this type in which the differential equation is 
represented in quasilinear form, with artificial viscosity added 
in conservation form, as quasiconservative, while we shall refer 
to schemes retaining conservation form for both the differential 
equation and the artificial viscosity as fully conservative. 

The shock condition that is lost in the original Murman-Cole 

scheme turns out to be the conservation of mass. Since pq is 

stationary at Mach number M = 1, the scheme remains valid anyway 

2 

up to errors of the second order in the shock strength M - 1. 
Moreover, in considering the differential equation for two dimen- 
sional flow past an airfoil with a single valued stream function ip , 
global considerations show that the total mass flux di|> is actual- 
ly conserved across the shocks even when they do not satisfy the 
exact shock condition. Thus the method of Murman and Cole provides 
a good approximation to the flow at nearly sonic speeds. 

Denoting by c* the critical speed and using the subscript °° 
to indicate free stream quantities, we introduce the integral 


I [‘V 


c*)di|> + p dy 


This integral for the wave drag coefficient is independent of path. 


The jump of the integrand across a shock wave is of the third order 

2 

in the shock strength M - 1, and the formula makes sense even 


though we have neglected changes in the entropy. It reduces to an 
obvious pressure integral over the profile that we use in practice. 

In our computer programs we have used a version of the scheme 
of Murman and Cole that tends to yield shock waves behind which the 
speed drops barely below the speed of sound through a jump roughly 


Q 
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one half that to be expected from exact theory. This is consistent 
with the existence of the forward and smeared shock solutions we 
made reference to at the beginning of the section for a one dimen- 
sional model. Such behavior is, however, also typical of the 
interaction of weak shock waves with a turbulent boundary layer. 

We have had excellent success with the method when we 
includeda boundary layer correction, and it leads to remarkably 
stable results. More recently we have modified the programs to try 
out both quasiconservation and full conservation forms of the equa- 
tions of motion like those that have been described above. For the 
most part the modified programs give pressure profiles quite 
similar to the ones obtained the old way. Some examples appear 
where the exact shock condition has resulted in better agreement 
with experimental data. Comparisons with exact hodograph solutions 
show tha't the additional terms introduced by representing the arti- 
ficial viscosity in conservation form lead to larger truncation 
errors in supersonic regions where smooth recompression of the flow 
occurs (cf. Chapter II, Section 2). Where the flow is expanding in 
the supersonic region, comparisons of solutions on coarse and fine 
grids suggest that the truncation errpr remains quite small, on the 
other hand. Our conclusion is that the original procedure is 
generally satisfactory in practice, but we do include in the hand- 
book a listing of an option for a quasiconservative scheme for 
purposes of comparison. Finally, we mention that our programs seem 
to give a reliable estimation of drag creep, but predict drag rise 
for Mach numbers that are about 0.02 smaller than those observed 
in wind tunnels. The discrepancy may be due to wall effect. 
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3 . Iterative Schemes for Three Dimensional Analysis 

Since the appearance of Volume I substantial progress has 
been made in developing methods for the computation of transonic 
flows. In this section we shall develop a rotated finite differ- 
ence scheme to treat flows at both subsonic and supersonic free 
stream speeds, and we shall develop an iterative procedure to solve 
the resulting difference equations. The rotated scheme is invari- 
ant under a transformation of coordinates, so that any curvilinear 
system can be introduced that is appropriate for the geometry of a 
specific problem. The method has been applied both in two dimen- 
sional calculations of the flow over an airfoil with a correction 
for the boundary layer, and in three dimensional calculations of 
the flow past an isolated yawed wing of finite aspect ratio. In 
selecting the latter problem to demonstrate the feasibility of 
three dimensional calculations we are motivated by R. T. Jones' 
concept of an asymmetric airplane with an oblique wing and by our 
access to his experimental data for comparison with the theory [6]. 

To be specific we consider the three dimensional case. 

Ignoring changes in the entropy and using rectangular coordinates 
x, y, z , we have the partial differential equation 

(c 2 -u 2 ) <(> + (c 2 -v 2 ) <j> + (c 2 -w 2 )<f> - 2uv<f> - 2vw<}> - 2uw<|> = 0 

' T xx T yy zz T xy yz xz 

for the velocity potential <f>, where c is the speed of sound 

defined by Bernoulli's law 

q 2 c 2 . 2 2 , 2 2 

— 2 ~ + ^rr = const. , q = u + v + w , 
and u, v, w are the velocity components. We look for weak solu- 
tions $ that satisfy an entropy inequality asserting that the 
speed decreases across any shock wave, and we use the standard 
approximations of linearized theory to specify what happens on the 
vortex sheet behind an obstacle. 
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The numerical method employed incorporates two basic features. 
First, in common with previous successful schemes for treating • 
transonic flows, it uses retarded differencing in the supersonic 
zone to introduce artificial viscosity and to reproduce the proper 
upstream region of dependence. Second, it uses an iterative proce- 
dure which can be viewed as an embedding of the steady state equa- 
tion in a suitably constructed artificially time dependent equation. 

The difference scheme described in Volume I is based on the 
assumption that the flow is more or less aligned with one coordi- 
nate direction. To allow more flexibility this assumption has 
been removed from the new scheme. Instead the equation of motion 
is rearranged as if it were expressed locally in a coordinate 
system aligned with the flow. Let s denote the stream direction. 
Then the equation can be written in the canonical form 

(c 2 -q 2 )<t> ss + c 2 ( A<J>-4> ss ) = 0 , 


where A<|> denotes the Laplacian of tf> . Since the direction cosines 
of the stream direction are u/q, v/q, and w/q, the streamwise 
second derivative can be expressed in the form 


12 2 
-±7T (u <J) + v < 

2 T xx 


> + w * + 2uv<f> + 2vw6 + 2uw<b ) 

yy T zz xy T yz T xz 


At supersonic points retarded difference formulas are used to 
represent all contributions to (f> gg , while central difference 
formulas are used to represent all contributions to A — <f> s s . At 
subsonic points all terms are represented by central difference 
formulas in the conventional manner. The result is a coordinate 
invariant difference scheme which is correctly oriented with the 
flow. The artificial viscosity induced in the supersonic zone 
ensures the proper entropy inequality, so that compression shocks 
are admitted while expansion shocks are excluded. By using the 
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rotational invariance of the Laplacian the need to calculate 
explicit directional derivatives normal to the streamlines is 
avoided. 

The difference equations are highly implicit, containing down- 
stream points even in the supersonic zone. In order to devise a 
convergent iterative scheme to solve them, it is convenient to 
regard the iterations as steps in an artificial time coordinate. 

Let At be the time step, arid let the superscript + denote updated 
values. Then a typical central difference formula at the mesh 
point (iAx, jAy, kAz) is 



which may be regarded as a finite difference approximation of 


" Al ( Vt + r V ' 


where r is a parameter determined by the overrelaxation factor. 
Thus we must consider a time dependent equation which contains 
mixed space and time derivatives. 

2 

If we divide the equation of motion through by c and 
neglect lower order terms, its principal part will have the form 


i> - 2a. d - 2a_i> - 

*nn l y st 2 r mt 


where M is the local Mach number q/c , m and n denote direc- 
tions normal to s, and the coefficients a^, a 2 and a-j depend 
on the split between new and old values in the difference scheme. 



we obtain the time dependent equation 
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(m2_1) *ss ' *mm - *nn “ ' a 2 ~ “S^TT = 0 * 

In order for this equation to remain hyperbolic with s as the time- 
like direction, it is necessary to satisfy the compatibility 
condition 

(A) > / (M 2 ~l) (a^+oi^) , M > 1 . 

This indicates the need to augment the term in <j> st to compensate 
for the terms in 4> mt and <}> produced by the central difference 
formulas. For that purpose 4> ss is evaluated using retarded 
difference formulas of the form 


2< ^ i,i,k ^i,j,k 2( ^ i-l,j,k + ^i-2,j,k 
(Ax) 2 


which can be interpreted as approximating 

^xx + ^ Ax ^xt 


The compatibility condition (A) may still be violated near the 
sonic boundary, where the coefficient of $ vanishes. Therefore 
the term 


max 


(u *xt + 


v V + 


w *zt> 


should be added, where 8 is a damping parameter chosen by the 
user. In this term <)> is represented as 

^ i,i,k ^i,j,k ^ i-1, i ,k + ^i-l,j,k 

Ax At ' 

with similar formulas for <|> ^_ and <j> zt - In some calculations it 
proves possible to set 8=0. 

The three dimensional analysis program, called Program J, has 
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been implemented in this form, using mixtures of new and old 
values to represent the spatial derivatives. Alternatively we can- 
regard the iterative scheme as being derived directly by the addi- 
tion of time dependent terms 


I a. <j> , + rd>. 

L 1 T X^t T t 

to the steady state equation. Then all spatial derivatives would 
be evaluated using old values, and the time dependent terms would 
be explicitly added to produce an artificially time dependent 
equation whose solution converges to the steady state solution. 
This approach proves more fruitful when one wishes to devise an 
iterative scheme for the equation in conservation or quasiconserva- 
tion form, since it can be carried over unaltered. A conventional 
relaxation scheme, on the other hand, would require the densities 
at the midpoints of each mesh interval to be calculated twice, 
first with old and then with new values. 

To derive a quasiconservation form of the rotated scheme we 
start from our invariant partial differential equation 


V(p V<f>) = h V[^- V ( pq) ] 
Si 


for the velocity potential <)>, in which central differences will 
be used on the left and retarded differences will be used in the 
evaluation of the artificial viscosity on the right. Working with 
rectangular coordinates to simplify matters, we substitute a quasi- 
linear form on the left to obtain 


cV» - l 


x i x j x i"j 


= l h. 

. X . L 1 


3x . 

l 


2 2 a 
c -<3 - ia_ 

q 3x ± 
2 


This differs from the original equation by a factor c /p , where 
c is the local speed of sound, and by the use of anisotropic 
viscosity coefficients h^ which are different in the different 


coordinate directions. For these we take 
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h. = <j> Ax. , 

l 1 Y x^ 1 1 ' 


where the Ax^ represent prospective mesh sizes. Neglecting 
partial derivatives of lower order on the right, we arrive at the 
result 


o - I 


2 2 


2 " 2 ‘ r • ■ p = l Ax . _JL E £1Z3. 

"x . x . L i 9x. q 


r x. T x . 

ill! 


|q„ 

x i x i 


To derive the rotated scheme from this, all that is necessary 
is to write down a similar equation in a more general orthogonal 
coordinate system and to replace the partial derivatives by suit- 
able finite difference approximations, with the divergence terms 
on the right retarded or advanced according as the corresponding 
coefficients <J> are positive or negative. We do not go into 

l 

further details here because the rotated scheme has already been 
established on other grounds. The main advantage of the present 
approach is that it applies just as easily to the true conserva- 
tion form of the equation for <p as it does to the simpler quasi - 
conservation form. 

We summarize our ideas in the following 


PROPOSITION. Transonic flow past a body in two or 
three dimensions can be calculated by means of a finite difference 
approximation of a partial differential equation for the velocity 
potential <f> that consists of a central finite difference represen- 
tation of the usual differential operator on <f> plus artificial 
viscosity and artificial time terms that are defined by a formula 
such as 


T _2_ 
‘ 3x i 


3x. 


3 

9x . 


h. e ~ 

1.9 , r 

IT 3^7 pq + 1 a i ( 


x. t 
l 


+ r 


where the h^ stand for anisotropic artificial viscosity coeffici- 
ents, the comprise a vector governing the characteristics of 
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an iterative scheme that involves the artificial time t, and r is a 
relaxation factor. 

The proposition has the advantage that it breaks up into 
separate blocks of terms the contributions from the fundamental 
equation of motion, from the addition of artificial viscosity, and 
from the insertion of mixed partial derivatives with respect to 
artificial time that specify the iterative scheme we use. The more 
general point of view should be. helpful in applying the method to 
other flow problems. It has been implemented in the quasiconserva- 
tion option for the two dimensional program with boundary layer 
correction, Program H (cf. Chapter III, Sections 5 and 7). 


4 . Choice of Coordinates and Conformal Mapping 

The rotated finite difference scheme which we have presented 
in Section 3 makes it possible to treat transonic flow problems in 
a variety of coordinate systems. The choice of coordinates can be 
quite important in a specific application. It is desirable that 
the coordinates follow the surface in regions of high curvature 
such as the leading edge. This can be achieved by conformal map- 
ping. In three dimensional calculations, however, we wish to avoid 
the extra terms in the equations that would result from the use of 
different mappings at different spanwise stations. For calculation 
of the flow over a yawed wing we have therefore used a square root 
transformation independent of the spanwise direction z to unfold 
the wing about a singular line just inside the leading edge, which 
is assumed to be straight. In the plane of each wing section we 
thus obtain parabolic coordinates X and Y which are related to the 
physical coordinates x and y by the conformal transformation 

= (X + iY) 2 . 


x + iy 
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The wing profile emerges as a shallow bump above the line Y = 0, so 
we use a second shearing transformation to obtain slightly nonortho 
gonal coordinates which coincide with the wing surface. 

For the calculation of two dimensional flow past an airfoil a 
better distribution of mesh points. is obtained by mapping the 
exterior of the airfoil conformally onto the interior of the unit 
circle. In particular, for the inclusion of a boundary layer 
correction based on iterating the map function, it is desirable to 
have a fast and accurate method of doing the conformal mapping. The 
purpose of this section is to describe such a method, based on the 
fast Fourier transform, which has been found to stand up well in 
practice . 

The calculations are performed in the interior of the unit 

circle using polar coordinates r and to. The modulus h of the map 

2 

prng derivative becomes asymptotic to 1/r as r tends to zero. 
To avoid introducing large truncation errors that come from finite 
difference expressions for 3h/3to and 3h/3r it is convenient to 
introduce the mapping to the exterior of the circle and to use an 
explicit inversion. 

Because we have in mind the extension of the boundary layer as 
a wake behind the airfoil, we wish to map the exterior of a profile 
with an open trailing edge in the z-plane onto the exterior of a 
circle in the a-plane so that the wake is reduced to a slit. The 
well known method of Theodorsen and Garrick [16], in which the 
mapping of a star shaped contour in the z-plane onto a circle in 
the a-plane is expressed in terms of log(z/a), does not allow for 
an open trailing edge. For this reason it is preferable to express 
the mapping in terms of its derivative 


if = • 
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Since the point at infinity is to be preserved, the Laurent series 
for f(o) must contain only inverse powers of o. If the coefficient 
of l/o is c, then according to the Cauchy integral theorem, integra 
tion of the map function around any circle exterior to the unit 
circle in the 0 -plane results in a gap 

Z 2 - z^ = ^ do = 2Tric . 


Thus the mapping represents the wake as a gap with a constant thick 
ness determined by the residue c. 

In order to devise a simple iterative process for calculating 
the mapping function it is convenient to write 

N c 


dz 

Ha = exp 


I 

n=0 0 


If a and s are the tangent angle and arc length of the contour in 
the z-plane, then 


log 


ds 

do) 


N 

+ i(a-o)) = 7 c e 

u A n 
n=0 


■into 


Separating the real and imaginary parts, we obtain 


, ds y , . . , 

log = > (a cos no) + b sin no)) , 

3 do) L n n n 

n=0 


a - o) = T (b cos nu> - a sin no)) , 
L - n n 

n=0 


where 


c = a + ib 
n n n 


Now the tangent angle a is known as a function of the arc length s 
from the definition of the contour. Therefore if we have an 
estimate s = s(o)) of the arc length as a function of the angle o> 
in the circle plane, we can calculate the Fourier coefficients of 
the series for a - 0 ). Then by reversing the sine and cosine 
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coefficients we can construct the conjugate Fourier series for 

log (ds/doi) . The expression for ds/do can be integrated in turn to 

provide an improved estimate of s (to) , and the process can be 

iterated until the corrections to s (to) become negligible. 

The Fourier series is not suitable for representing a jump. 

In order to apply this method to the mapping of an airfoil it is 

dz 

therefore desirable to modify the representation of -tj by including 
a Schwarz-Christof fel term to allow for a comer or cusp at the 
trailing edge. Thus we set 


dz 

da 


1-E/ir 

(1 - -) exp 


N 

l 


n=0 



where E is the included angle at the trailing edge. The gap 
becomes 

2 Trie = 2iri||- - 1 + cj . 

The same iterative procedure is then used. Provided that c.^ is 
fixed by the gap condition, it converges rather rapidly for 
reasonably smooth airfoils. It is generally sufficient to use the 
flat plate relationship of s to w for the starting guess, and the 

-9 

maximum correction to s (io) usually reduces to the order of 10 in 
about 10 iterations. 

To obtain good accuracy it is important to use a sufficiently 
large number of terms in the Fourier series. If the mapping func- 
tion is to be calculated at 2K equally spaced mesh points u) k = kn/K 
around the circle it is best to take N = K terms and to replace the 
Fourier series by trigonometric interpolation formulas for the 
corresponding values a k of the angle a. This is equivalent to 
evaluating the Fourier coefficients by the trapezoid rule. It has 
been shown by Snider [15] that for a function with Jt continuous 
derivatives the maximum error in the trigonometric interpolation 
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J .-1 

formulas is of the order (1/K) 

The trigonometric interpolation formulas have the advantage 
that they can be evaluated with the aid of the fast Fourier trans- 
form. Thus we can reduce the number of computer operations at each 
2 

iteration from 0(K ) to 0(K log K) . In fact we can avoid the 
explicit evaluation of the coefficients a n and b n altogether 
and obtain the conjugate function log (ds/dto) directly from a - w 
with the aid of back-to-back fast Fourier transforms as follows: 
First let the angle function a - to at the mesh points 2k and 
2k+lbe regarded as the real and imaginary parts of a complex 
function 

U k = a 2k " W 2k + 1 ^ a 2k+l “ u 2k+l^ 

defined for 0 < k < K-l. Let U k be the complex Fourier trans- 
form of u k , and let 



Then the real and imaginary parts of the Fourier transform v^ of 
V k yield log (ds/dto) at the shifted mesh points 2k+l and 2k+2 , 

log dto| 2k+2 _1 log dto | 2k+l = v k * 

Unfortunately the contour is usually not defined by an 
explicit formula, but only by a table of coordinates. Thus we are 
obliged to use an interpolation procedure to estimate the tangent 
angle a(s) at the values s^ corresponding to equally spaced 
points in the circle plane. Most airfoils have continuous slope 
and curvature, but it is unwise to assume continuity of derivatives 
of order higher than the second. Accordingly, it is appropriate 
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to use cubic splines for interpolation. Since neither x nor y is 
monotone around the contour it is not possible to use splines to 
represent one coordinate as a function of the other. Instead x and 
y are represented separately by splines as functions x(p) and y(y) 
of a monotone parameter y. We can use the estimated arc length s 
itself as the parameter. With this choice the derivatives of the 
functions we encounter may become infinite at the trailing 
edge. It is better to remove this singularity by using as a 
parameter the stretched arc length 


y = cos 


-1 2s -S 0 


where s Q is the total arc length. This reduces the sensitivity to 
errors in the coordinates near the trailing edge. 

The combination of the derivative representation of the 
mapping with trigonometric interpolation by fast Fourier transforms 
and with splines to represent the contour has been found in prac- 
tice to provide a rapid and robust numerical algorithm which is not 
critically dependent on a high degree of smoothness in the data. 
Thus it is well suited to the treatment of a boundary layer correc- 
tion, which can lead to rather irregular shapes, particularly in 
the earlier iterations. 


5 . Two Dimensional Analysis with a Turbulent Boundary Layer 
Correction 

We turn our attention to the problem of adding a turbulent 
boundary layer correction to the two dimensional program for 
analysis of transonic flow past a supercritical wing section. 
Our approach is to calculate the displacement thickness 6 = H9 
by means of von Kantian' s equation 
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d0 

ds 


+ 


(H + 2 - M 2 ) 


e dq 

q ds 


T 


for the momentum thickness 8, where M is the local Mach number 
and the shape factor H and the skin friction t are determined 
from semi -empirical formulas of Nash and Macdonald [14] . We 
ignore the laminar boundary layer because it is so thin, and we 
initialize 8 at a transition point that can be set arbitrarily. 
First we run a certain number of cycles of the flow computation 
using a two dimensional version of the new rotated finite differ- 
ence scheme described in Section 3. Then we alter the shape of the 
airfoil by adding on a current estimate of the displacement thick- 
ness 6 . After that we update the map function in the unit circle 
by the fast Fourier transform procedure outlined in Section 4, and 
finally we return to the flow calculation and repeat the whole 
process. Various smoothings of <$ are introduced to overcome 
instabilities caused by the dependence of the boundary condition on 
the tangential pressure gradient dq/ds . However, the most serious 
difficulty encountered, which we shall discuss in more detail, 
stems from the inaccuracy and rapid variation of the Nash-Macdonald 
formulas for the shape factor H near the point where the boundary 
layer separates. 

According to the turbulent boundary layer method of Nash and 
Macdonald [14], separation is predicted when the adverse pressure 
gradient becomes so big that 

8 dq 

SEP = .004 . 

q ds — 

Beyond this threshold their semi -empirical formulas are less 
accurate and we have felt free to modify them. Thus over most of 
the airfoil, and in particular through any shock wave, we replace 
the parameter SEP by .004 if the calculation shows it to exceed 
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that value. A reasonable simulation of the effects of turbulent 

boundary layer shock wave interaction seems to result for weak 

shocks. Because the flow outside the boundary layer cannot 

withstand arbitrarily large adverse pressure gradients, and because 

experimental data indicate that the pressure coefficient C tends 

P 

to become linear or even flatten out after separation, we allow for 
an option that alters the computed values of C p for insertion in 
the von Karman equation after the final point of separation by 
extrapolating them linearly to a base value. Since the adverse 
pressure gradient at the trailing edge ought to remain finite, we 
iterate to determine the base value of the pressure coefficient 
until the computed distribution of just ceases to be monotonic 
over some prescribed interval near the trailing edge. Our idea is 
to thicken the displacement 6 beyond final separation of the 
boundary layer until the pressure coefficient begins to turn 

around and flatten out at the trailing edge as we know it does 
in wind tunnel tests. It is our experience that this procedure 
yields a quite reliable estimate of the distribution of lift at the 


rear of a heavily aft loaded airfoil. 


Extensive comparisons with test data have been used to adjust 
the parameters at our disposal in arriving at a scheme of this type 
so as to achieve a good computer simulation of the physical flow. 
The details are best studied by examination of the full listing of 
our computer program in Section 5 of Chapter Ili. We mention that 
certain monotonicity properties which the final displacement thick- 
ness 6 ought to have are imposed as part of the smoothing process. 
Both <5 and the base pressure coefficient are underrelaxed to 
obtain convergence; the change in the latter at each iteration is 
made proportional to the smallest increment of C p across any pair 
of adjacent mesh points in a prescribed interval at the rear of 
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the profile. 

It has been found best to integrate the von Karman equation 
over a mesh of 8 1 points equally spaced on the circumference of the 
unit circle, even when the flow is computed at a mesh twice as fine, 
because this leads to the right thickening of the boundary layer 
through a shock. Satisfactory agreement with the experimental data 
that is available to us seems to have been achieved (cf. Section 3 
of Chapter II) . Better resolution would require either an improve- 
ment in the semi -empirical description of the turbulent boundary 
layer we have drawn from the paper of Nash and Macdonald [14] or a 
more penetrating theory of the near wake in transonic flow past a 
heavily aft loaded airfoil. We note that Bavitz [2] has also 
developed an iterative procedure to include a boundary layer correc- 
tion, for which he reports good agreement with experimental data. 

6 . Design in the Hodograph Plane: A New Model of the Trailing Edge 

We turn our attention to the problem of design of shockless 
airfoils by the method of complex characteristics described in 
Volume I (cf. [1]). This transforms an analytic function depending 
on many arbitrary parameters into a solution of the partial differ- 
ential equations of gas dynamics. The main difficulty lies in the 
choice of parameters to obtain desired properties of the flow in 
the physical plane. New insight has been gained by experience and 
as a result of wind tunnel tests. In particular, it has been found 
essential to improve on our old model of the trailing edge. 

Several of our airfoils have been tested in wind tunnels 
achieving high enough Reynolds numbers so the boundary layer 
becomes turbulent throughout the transonic zone (cf. [7,8,9]). The 
agreement between theoretical and experimental pressure distribu- 
tions turned out to be better when there was little aft loading 
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and no boundary layer correction than it was in heavily aft loaded 
cases with a boundary layer correction, for which the observed lift 
was fifteen or twenty percent less than its predicted value. The 
loss of lift for the corrected cases seems to be due to boundary 
layer separation over the last three to five percent of chord on 
the upper surface of the profile (cf. Chapter II , Section 6, 

Figure 6). Since, as we indicated in the previous section, large 
adverse pressure gradients in the exterior flow cannot be sus- 
tained by the boundary layer, the design pressure gradient 
obtained near the trailing edge by the hodograph method ought to 
remain bounded on the upper surface. Heavy aft loading can still 
be achieved by allowing the favorable pressure gradient on the 
lower surface to become infinite (cf. Section 1 of Chapter II) . The 
purpose of the present section is to describe a refinement of the 
Kutta-Joukowski model of the tail in the hodograph plane that 
enables us to generate such pressure distributions, which are like 
those observed experimentally (cf. [8]) and should, therefore, give 
rise to much less loss of lift in practice. 

The method of complex characteristics constructs a flow from 
initial data defined by an analytic function g of the complex 
variable n specified in a plane that is analogous to the hodo- 
graph plane, but is simpler because a substitution has been made 
so the mapping to the physical plane becomes one-to-one. Since we 
deal primarily with cusped tails, the Kutta-Joukowski condition 
implies that the image of the tail in the g-plane lies at a 
critical point of the stream function ip identified with some 
finite speed q (cf . the figures in Section 1 of Chapter II) . 
Corresponding to the airfoil there is a profile i> = 0 in the 
rj-plane which must enclose no singularities of the input function 
g(n) other than one at n = 0 associated with the point at 
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infinity in the physical plane. In Volume I we allowed the stream 
function ip to have a period about the origin in order to obtain a 
thickness at the trailing edge from which a boundary layer correc- 
tion could be subtracted. However, we now ask that i() remain single 
valued and introduce a period in the physical coordinate y instead. 
This has the advantage of making the values of the pressure coeffici- 
ent 0^ match up across the two edges of the trailing streamlines 
ip = 0 that proceed from the tail out to infinity and in effect delin- 
eate the boundary layer wake. The new model of the trailing edge 
thus obtained agrees with the one we have been using all along in 
our analysis programs. 

The requirement that the adverse pressure gradient remain 
finite on the upper surface of the airfoil near the tail means that 
in the n -plane the corresponding arc of the profile must become 
tangent to the level curve of the speed q through the tail. There 
are two different ways this can happen. First, we can impose a 
simple critical point of i|> at the tail, with q stationary on the 
profile ip = 0 and with the angle of the flow monotonically increas- 
ing as we pass from the upper surface to the lower surface. Both 
surfaces are concave at such a tail, which has an appreciable base 
pressure coefficient and does not generate excessive aft loading 
(cf . Airfoil 79-03-12 in Section 1 of Chapter II) . Second, there can 
be a multiple critical point of <p at the tail, with q stationary 
only on the upper surface but exhibiting an unbounded favorable 
gradient on the lower surface, and with the flow angles above and 
below turning downward to form a hook at the tail (cf. Airfoil 
72-06-16 in Section 1 of Chapter II) . This is the case of a heavily 
aft loaded airfoil, and its success depends on the pressure coeffi- 
cient C being nearly zero at the tail. Thus the speed at the 

r 

tail is almost the same as that at infinity and the flow angles 
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are sizeable, resulting in significant aft camber. When our design 
program is used to implement the two configuratios we have describ- 
ed, the new input parameter NCR specifying the number of 
constraints, which controls the order of the critical point of ip at 
the tail, must be set equal to five and seven, respectively. 

7 . Design in the Hodograph Plane: Choice of Parameters 

The purpose of this section is to describe improvements in our 
design method that have been introduced since Volume I appeared. 

Some minor additions and corrections to the basic computer programs 
have been made, and they are listed in Section 8 of Chapter III. 

We believe that the better model of the trailing edge which has 
been presented in Section 6 should be used in designing any future 
shockless airfoils. We have also worked out a number of new 
examples (cf . Section 1 of Chapter II) , both before and after the 
discovery of the more desirable treatment of the trailing edge 
problem, and they furnish perhaps the best guide available to those 
interested in the design method, which has turned out to be harder 
for the uninitiated user to implement than we had hoped. Here we 
supplement the examples with a brief account of the improved tech- 
niques that enabled us to arrive at them. 

In order to design a transonic airfoil by the method of 
complex characteristics, we pick a desirable location, i.e. desir- 
able speed and slope, for the tail and lay down automation paths 
through which the profile ought to pass in the subsonic part of the 
complex n-plane, which plays the role of a hodograph plane. Then 
we place logarithmic singularities of the input function g(n), 
whose coefficients are to be found automatically, at appropriate 
points surrounding the profile. We distribute more of them near 
the tail if a multiple critical point of the stream function <p 
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is imposed there and if separation is to be avoided by fitting the 
profile to a level curve of the speed q. To achieve shockless flow 
few constraints should be set on the supersonic arc of the air- 
foil. However, the problem is overdetermined not only because of 
its transonic character, but also because we tend to impose too 
many interpolation conditions in the subsonic domain. Thus the 
most important consideration is to choose the branch point B of 
the transformation from the n - plane to the true hodograph plane, 
the location of the tail, and the more significant parameters defin- 
ing the analytic function g(n) so as to arrive at a compatible 
configuration. A good general principle to follow is that as few 
constraints as possible should be introduced and as few logarithms 
as possible should be used. Moreover, the coefficients of those 
terms that are required should be made as small as possible. The 
objective then becomes to obtain a smooth, closed profile ip = 0 
with as many desirable physical properties as the various trade-offs 
of the configuration at hand allow. 

As we have indicated, the first shockless airfoils we developed 
that had heavy aft loading failed to come up to their design speci- 
fications in wind tunnel tests because we did not shape the profile 
in the g-plane closely enough to the level curve of q at the tail 
to eliminate significant boundary layer separation. Our present 
belief is that this fit should be carried far enough to ensure that 
the inequality 


SEP 


e ^q 

q ds — 


.004 , 


which we use as a criterion on the momentum thickness 0 for no 
separation to take place, holds in the flow calculated by the hodo- 
graph method, which occurs outside the boundary layer. Airfoils 
conforming to the new criterion have more camber near the tail than 
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corresponding examples designed before (cf. Airfoils 70-10-13 and 
70-11-12) , which helps explain why the earlier models experienced 
a loss of lift. Runs of the analysis program we described in Sec- 
tion 5, which seems to simulate test data well, do suggest that 
five new airfoils we designed theoretically to have no separation 
ought to meet our specifications in practice (cf. Airfoils 79-03-12, 
72-06-16, 71-08-14, 70-10-13 and 65-14-08). For a more satisfac- 
tory verification of the theory we look forward to seeing the 
experimental results from a test of one of these airfoils now being 
planned at the National Aeronautical Establishment in Ottawa. 

Usually a new airfoil takes between 25 and 100 trial runs of 
the computer program to design, with most of the runs using about 
five minutes of CDC 6600 machine time at mesh parameter MRP = 2. 
However, John Dahlin of the McDonnell Douglas Corporation was able 
to design Airfoil 71-08-14 in only twelve runs starting from a 
combination of the input data for Airfoils 72-06-16 and 70-10-13. 
Full automation to prescribe the location of the arc of the profile 
inside the sonic locus of the g-plane is recommended. For a case 
with specifications close to those of one that has already been 
finished, 25 runs should suffice. On the other hand, when we tried 
out the concept of eliminating separation by fitting the profile 
iJj = 0 to the level curve of q through the tail in the n-plane, 
both our first example, the heavily aft loaded Airfoil 70-10-13 
based on a multiple critical point with NCR = 7, and our second 
example, the low lift Airfoil 79-03-12 based on a simple critical 
point with NCR = 5, required about 100 runs to perfect. The diffi- 
culties encountered were to meet a large collection of interpola- 
tion conditions near- the tail. The problem of achieving smooth nose 
curvatures, which caused a lot of trouble in preparing the 
examples for Volume I, is now made significantly easier by locating 
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only one or two logarithms in the left half-plane, by cutting off 
the automation paths well short of the nose, and by choosing the 
parameters XU and XV that control the slope and curvature at the 
stagnation point so that they are more compatible with the auto- 
mation paths . 

One of the most subtle aspects of the inverse method of 
designing transonic airfoils is the control of limiting lines that 
result from overlap in the transformation from the hodograph plane. 
It is as important to control the limiting line that tends to 
appear at the front of the superonic zone, where there is a 
pressure peak, as it is to eliminate sharp gradients at the rear, 
where shock waves will appear at off-design conditions. In our 
method, problems of interpolation and analytic continuation play a 
significant role in the location of logarithmic singularities of 
the initial function g(n). Experience shows that the limiting 
lines are very sensitive to logarithms situated in the transonic 
region of the n -plane just below the supersonic paths of integra- 
tion (cf . the figures in Section 1 of Chapter II) . We have found 
that a logarithm with a pure imaginary automated coefficient should 
be placed near the negative imaginary axis in this region. The 
position of a second fully automated logarithm near the point 
g = - .1 - .4i then exercises strong control over the pressure 
peak at the front of the supersonic zone, which is also favorably 
influenced by a heavily weighted automation path making the pro- 
file cross the sonic locus early, say for Re (n) < -.6 . A secon- 
dary peak appears in front of the primary one when this logarithm 
is moved toward the sonic locus. However, by careful adjustment 
the secondary peak can be merged into the primary one so as to 
form an unusually well rounded pressure distribution with super- 
sonic speeds attained within five percent of chord from the lead- 
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ing edge (cf . Airfoil 78-06-10) . Such a distribution can be 
expected to reduce the drag creep that tends to occur just below 
the shockless design condition. Experience has shown that design- 
ing airfoils near the limit of feasible specifications leads to 
poor performance at off-design conditions. It is preferable to 
reduce the size of the supersonic zone by subtracting, say, .01 
from the maximum possible design Mach number. This also tends to 
suppress drag creep. 
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I I . DATA 


1. Catalog of Transonic Airfoils 

In this section we present some of the more promising air- 
foils which we have been able to design. These are labelled with 
six digit numbers composed of successive pairs indicating the free 
stream Mach number M, the lift coefficient C T , and the thickness 
chord ratio T/C. For every example there is a plot of the airfoil 
geometry and the Mach lines together with the design pressure 
distribution. There is also a plot of the n-plane, related to the 
hodograph plane, which shows the location of the logarithms and 
automation paths (cf. Volume I) plus the remainder of the 
integration paths from Tape 6. Listings of Tape 7 and 
the automation paths from Tape 6 have been included. This should 
enable the reader to run the examples through Programs B and D and 
to use them as starting points for new designs. For our newer and 
better airfoils we have listed x, y coordinates also, so that it is 
not necessary to run the programs to obtain a definition of their 
geometry. 

The newer airfoils are given first. The best are 79-03-12, 
72-06-16, 71-08-14, 70-10-13 and 65-14-08, which incorporate the new 
model of the tail designed to eliminate boundary layer separation. 
Airfoil 79-03-12 uses NCR = 5 (see pages 27-28) and has a low lift 
coefficient in the range suitable for executive jets. Airfoil 
78-06-10 is notable for its very smooth pressure distribution, 
obtained by controlling the limiting line at the front of the super- 
sonic zone (see pages 31-32) . Airfoil 72-06-16 is the closest we 
have come to simulating the supercritical wing of the T2-C. Airfoil 
70-10-13 was designed especially for R. T. Jones to be used in his 

plans for a transonic transport with an oblique wing. It was 

2 

designed to maximize the product M C while having a thickness ratio 

Li 
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of twelve percent and meeting constraints imposed by the need to 
avoid drag creep and separation. It is expected to give an optimal 
three dimensional lift drag ratio at moderate supersonic speeds 
(cf. Section 5). Airfoil 65-14-08 resulted from applying the same 
criterion. Airfoils 70-11-12 and 65-15-10 are included largely for 
purposes of comparison; they have cusped trailing edges for 
which separation cannot be avoided. Airfoil 60-13-10 is 
an example of a subcritical design. 

Airfoils 75-06-12, 75-07-15 and 82-06-09 are from an older 
series, and are included, not because they represent the best that 
can currently be achieved, but because they have been tested (cf. [7, 
8,9]). The Grumman Aerospace Corporation used Airfoil 70-07-20 as 
a starting point to develop an airfoil by our design method 
for a series of tests in their transonic wind tunnel (cf. Section 6, 
Figure 6) . A version of Airfoil 78-06-10 has been tested by Whitcomb 
at the NASA Langley Research Center. There are also plans for a two 
dimensional test of Airfoil 79-03-12 in the high Reynolds number 
wind tunnel of the National Aeronautical Establishment in Ottawa, 
for a three dimensional test of an oblique wing based on Airfoil 
70-10-13 at the NASA Ames Research Center, and for a two dimensional 
test of a modified version of Airfoil 65-14-08 at the Grumman Aero- 
space Corporation. 

Our final example is a compressor blade which was designed in 
collaboration with E. McIntyre (cf. [11]). This was obtained using 
a new program which permits the design of two dimensional cascades 
of airfoils and will be published elsewhere [10] . Additional 
transformations of the n-plane allowing for additional branch points 
enable one to design highly cambered blades suitable for turbines. 
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07/23/7* 


RUN= *109 

CIRCULATORY PLOW ABOUT A TRAmSOnIC AIRFOIL 


M= .790 CL= .292 0Y= ,018 T/C= .123 
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.150 

-.069 

-.020 

,500 

.300 

0.000 

-.226 

-.070 

.*70 

-.169 

-.094 

.400 

.010 

-.102 

-.022 

-1.050 

-.950 

0.000 

0,000 

-2.000 

0.000 

0.000 

0.000 

-2.000 

0.000 

0,000 

0,000 

-2.000 

0.000 

-.169 

.139 

-.030 

-.510 

.039 

.185 

.500 

-.300 

.100 

.070 

0.000 

-.300 

0.000 

0,000 

0.000 

-.900 

.209 

-.065 

.*60 

.100 

-.0** 

.07* 

.500 

.050 

.119 

-.027 

,095 

.032 

,038 

-.033 

4.000 

1,000 
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All TOMAT I ON PATHS 
5 0 

-.070 -.130 1 

.190 -.325 -1 

.260 -.350 3 

.335 -.160 2 

.350 -.090 2 

3 0 

-.910 -.300 -1 

-.830 -.400 2 

-.700 -.500 2 

3 0 

-.700 -.500 -1 

-.600 -.500 4 

-.510 -.470 4 

3 0 

-.410 .390 -1 

-.580 .410 2 

-.840 .250 2 

4 0 

.120 .295 -1 

.240 .320 2 

.310 .280 1 

.390 .160 1 

3 0 

.390 .160 -1 

.390 .060 1 

.355 -.045 2 
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LISTING OF COORDINATES FOR AIRFOIL 79-03-12 RN=20,0 MILLION 


X 

Y 

YS 

ANG 

1.00000 

0,00000 

.00348 

-2.66 

.99953 

,00002 

.00351 

• 2.38 

.99812 

.00007 

.00360 

-2.07 

.99578 

.00015 

.00371 

-1.77 

. 99249 

.00024 

.00384 

-1.46 

.96827 

,00034 

.00397 

-1.16 

.98312 

.00043 

.00411 

-.84 

.97705 

.00050 

.00422 

-.52 

.97005 

.00054 

.00430 

-.17 

.96214 

• 0 0 0 53 

.00434 

.20 

.95332 

.00047 

.00433 

.61 

.94361 

,00033 

.00426 

1.06 

.93302 

.00008 

.00410 

1.58 

.92156 

— . 0 0 0 3 0 

.00384 

2.17 

.90925 

..00084 

.00345 

2.85 

.89615 

-.00158 

.00288 

3.62 

.88229 

-.00256 

.00208 

4.46 

.86774 

-.00381 

.00099 

5.34 

.85257 

..00535 

-.00044 

6.20 

.83688 

-.00717 

-.00224 

7.01 

.82074 

-.00925 

-.00441 

7.70 

.80423 

-.01157 

-.00691 

8.27 

.78741 

-.01408 

-.00970 

8.69 

.77033 

-.01673 

-.01270 

8.96 

.75304 

-.01947 

-.01561 

9.09 

.73555 

-.02227 

-.01998 

9.10 

.71793 

-.02506 

-.02213 

6.97 

.70017 

-.02784 

-.02520 

0.74 

.68228 

-.03054 

-.02917 

8.39 

.66429 

-.03312 

-.03099 

7,95 

.64620 

-.03557 

-.03363 

7,44 

.62800 

-.03785 

-.03609 

6,86 

.60971 

-.03995 

-.03934 

6.25 

.59132 

-.04186 

-.04038 

5.62 

.57264 

-.04357 

-.04220 

4.99 

.55426 

-.04510 

-.04561 

4.38 

.53561 

-.04643 

-.04523 

3,61 

.51688 

-.04759 

-.04645 

3.27 

.49811 

-.04 R 5 e 

-.04750 

2.77 

.47931 

-.04941 

-.04939 

2.30 

.■*6051 

-.05010 

-.04912 

1.66 

.44174 

-.05064 

-.04971 

1,43 

.42302 

-.05104 

-.05016 

1.03 

.40439 

- • C 5131 

-.05047 

.63 

.38587 

-.05145 

-.05065 

.24 

.36749 

-.05146 

-.05070 

-.15 

.34929 

-.05136 

-.05064 

-.53 

.33128 

-.05113 

-.05045 

-.91 

.31351 

-.05079 

-.05015 

-1.30 

.29599 

-.05033 

-.04973 

-1.69 

.27876 

-.04976 

-.04919 

-2.10 


KAPPA 

CP 

TrtETA 

SEP 

19.62 

.3010 

.00285 

-.00457 

-7.18 

.3022 

.00265 

-.00434 

-2.62 

.3052 

.00285 

-.00372 

-1.92 

.3090 

.00287 

-.00287 

-1.41 

.3127 

.00286 

-.00203 

-1.15 

.3159 

.00290 

-.00147 

-.99 

,3192 

.00291 

-.00125 

-.89 

.3229 

.00292 

-.00117 

-.84 

.3271 

.00293 

-.00113 

-.81 

.3317 

.00295 

-.00109 

-.61 

.3364 

.00297 

-.00102 

-.83 

.3413 

.00298 

-.00093 

-.87 

.3460 

.00300 

-.00077 

-.93 

.3501 

.00301 

-.00052 

-.99 

.3526 

.00301 

-.00014 

-1.04 

.3524 

.00300 

.00036 

-1.06 

.3461 

.00296 

.00094 

-1.03 

.3366 

.00289 

.00154 

-.95 

.3231 

.00276 

.00209 

-.82 

.3013 

.00264 

.00250 

-.67 

.2734 

.00247 

.00276 

-.51 

.2402 

.00229 

.00285 

-.35 

.2024 

.00210 

.00281 

-.20 

.1608 

.00192 

.00269 

-.07 

.1160 

.00176 

.00251 

.06 

.0665 

.00160 

.00231 

.18 

.0167 

.00146 

.00210 

.28 

-.0327 

.00133 

.00189 

.38 

-.0849 

.00122 

.00167 

.46 

-.1371 

.00112 

.00146 

.52 

-.1863 

.00103 

.00126 

.57 

-.2374 

.00095 

.00107 

.59 

-.2630 

.00086 

.00089 

.60 

-.3240 

.00082 

.00072 

.58 

-.3595 

.00077 

.00057 

.55 

-.3692 

.00073 

.00044 

.52 

-.4138 

.00069 

.00034 

.46 

-.4342 

.00065 

.00026 

.45 

-.4510 

.00062 

.00020 

.42 

-.4647 

.00059 

« 00016 

.40 

-.4758 

.00056 

.00012 

.39 

-.4846 

.00054 

.00009 

.38 

-.4917 

.00051 

.00007 

.37 

-.4972 

.00049 

.00005 

.37 

-.5016 

.00046 

.00004 

.37 

-.5052 

.00044 

.00003 

.37 

-.5082 

,00042 

.00003 

.38 

-.5109 

.00039 

.00002 

.39 

-.5133 

.00037 

.00001 

.40 

-.5146 

.00035 

.00001 

.42 

-.5149 

,00033 

-.00000 
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X 

Y 

rs 

ANG 

.26185 

•.04908 

-.0*355 

-2.52 

.2*527 

- • C 4 829 

-.04779 

-2.95 

.22906 

-.04739 

-.04693 

-3.40 

.2132* 

-.04639 

-.04597 

-3.82 

.19784 

-.04530 

-.04492 

-4.27 

.18290 

-.04412 

-.04377 

-*.77 

.16845 

..04285 

-.04253 

-5,34 

.15452 

-.041*6 

-.04118 

-6,02 

.1*113 

-.03996 

-.03971 

-6.80 

.12829 

-.03833 

-.03811 

-7,69 

.11603 

-.03657 

-.03638 

-8.70 

.10433 

..03466 

-.03451 

-9.82 

.09323 

..03262 

-.03250 

-11.04 

.08271 

-.030** 

-.03036 

-12.39 

.07279 

-.02813 

-.02807 

-13,88 

.06347 

-.02569 

-.02566 

-15.52 

.05476 

-.02313 

-.02312 

-17.31 

.04667 

-.020*6 

-.02045 

-19.27 

.03919 

-.01769 

-.01769 

-21,44 

.03233 

-.01484 

-.01484 

-23.87 

.02611 

-.01191 

-.01191 

-26.63 

.02054 

-.00893 

-.00893 

-29.83 

.01562 

-.00590 

-.00590 

-33.67 

.01138 

-.00282 

-.00282 

-38.39 

.00763 

.00029 

.00029 

-44.43 

.00499 

.003*6 

.00346 

-52.13 

.00262 

.00671 

.00671 

-61,00 

.00129 

.0100* 

.01004 

-69.81 

.00035 

.013*1 

.01341 

-79.21 

0.00000 

.01674 

.01674 

-88.91 

.00027 

.01997 

.01997 

-100,65 

.00120 

.02312 

.02312 

-112.14 

.00279 

.02617 

.02617 

-122,54 

.0050* 

.02907 

.02907 

-132,80 

.00803 

.03180 

.03180 

-141,61 

.01180 

.03443 

.03443 

-148.08 

.01632 

,03698 

.03698 

-152,66 

.02156 

.03948 

,03948 

-156,27 

.02749 

.04189 

.04189 

-159.26 

.03410 

,04422 

.04422 

-161.86 

.04138 

,04643 

.04643 

-164.22 

.04932 

.04851 

.04850 

-166,40 

.05795 

.050*3 

.05041 

-168.40 

.06729 

.05221 

,05217 

-170.01 

.07736 

.05387 

.05380 

-171.18 

.08612 

.055*5 

.05535 

-172.07 

.09954 

.05697 

,05682 

-172.81 

.11160 

.056*2 

.05323 

-173,45 

.12427 

.05901 

.05958 

-174,02 

.13752 

.06113 

.06087 

-174.54 

.15133 

.06239 

.06209 

-175.02 

.16566 

.06359 

.06325 

-175,47 

.18050 

.06471 

.06433 

-175.89 

.19581 

.06575 

.06533 

-176.29 

.21158 

.06672 

• 0 6626 

-176.68 


KAPPA 

CP 

THETA 

SEP 

.44 

-.5143 

.00031 

-.00000 

.47 

-.5129 

.00028 

-.00000 

.47 

-.5120 

.00026 

.00001 

.*8 

-.5143 

.00024 

.00001 

.54 

-.5176 

.00022 

.00001 

.63 

-.5201 

.00020 

.00000 

.76 

-.5200 

,00018 

-.00001 

.92 

-.5160 

.00016 

-.00003 

1.10 

-.5073 

.00014 

-.00005 

1.31 

-.*931 

.00012 

-.00006 

1.53 

-.*730 

.00010 

-.00007 

1.77 

-.**69 

,00009 

-.00008 

2.03 

-.*1*6 

.00007 

-.00009 

2.37 

-.3746 

.00005 

-.00008 

2.75 

-.3263 

.00002 

-.00004 

3.19 

-.2698 



3.71 

-.2057 

TRANSITION . 

4.35 

-.1345 



5.16 

-.0562 



6.29 

.0297 



7,62 

.1240 



10.06 

.2279 



13.35 

.3437 



18.61 

.4736 



26.69 

.6239 



36.49 

.7957 



40.74 

.9712 



44.46 

1.1053 



47.57 

1.1647 

STAGNATION 

56,93 

1.1273 



64,30 

.9756 



56.43 

.7330 



50.52 

.*330 



45,10 

.1132 



31.21 

-.1013 



18.48 

-.2264 



12.80 

-.3235 



9.29 

-.4087 



7.21 

-.4892 



5.89 

-.5648 



4,99 

-.6390 



4.31 

-.7124 



3.49 

-.7793 

TRANSITION 

2.44 

-.8219 



1,66 

-.8366 

.00002 

.00000 

1.25 

-.8360 

.00006 

.00000 

1.01 

-.8287 

.00008 

.00002 

.84 

-.8185 

.00010 

.00003 

.73 

-.8071 

.00012 

.00004 

.64 

-.7955 

.00014 

.0000* 

.57 

-.7842 

,00016 

.0000* 

.52 

-.7736 

.00018 

.0000* 

.*8 

-.7640 

,00020 

.0000* 

.*4 

-.7555 

.00022 

.0000* 

.*1 

-.7479 

.00025 

.00004 
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x r 


.22778 

.06761 

.24438 

.06842 

.26137 

.06915 

.27870 

. C 6979 

.29636 

.07036 

.31431 

.07085 

.33252 

.07126 

.35098 

.07158 

.36963 

.07183 

.38846 

.07199 

.40743 

.07207 

.42651 

.07207 

.44566 

.07198 

.46487 

.07180 

.48408 

.07154 

.50323 

.07118 

.52242 

.07072 

.54149 

.07017 

.56044 

.06952 

.57925 

.06876 

.59788 

.06768 

.61629 

.06689 

.63447 

.06575 

.65237 

.06445 

.67000 

.06295 

.68736 

.06124 

.70449 

.05932 

.72138 

.05720 

. 73804 

.05493 

.75448 

.05252 

.77068 

,05002 

.78661 

.04747 

.60226 

.04489 

.61760 

.04233 

.63258 

.03982 

.84713 

.03738 

.86135 

.03503 

.67506 

.03280 

.68826 

.03071 

.90091 

.02877 

.91296 

.02699 

.92439 

.02538 

.93512 

.02395 

.94514 

.02266 

.95441 

.02158 

.96289 

.02065 

.97055 

.01936 

.97737 

.01921 

.96332 

.01869 

.96836 

.01826 

.99255 

.01798 

.99580 

.01776 

.99813 

.01761 

.99953 

.01753 

1.00000 

.01751 


YS ang 

.06711 - 177.04 
.06788 - 177.38 
.06657 - 177.70 
.06918 - 178.01 
.06970 - 178.30 
.07015 - 178.58 
.07052 - 178.85 
.07081 - 179.12 
.07101 - 179.38 
,07113 - 179.63 
.07118 - 179,88 
.07113 - 180.14 
.07101 - 180.39 
.07079 - 180.66 
.07048 - 180,93 
.07009 - 181.21 
.06959 - 181.51 
.06699 - 181.82 
.06329 - 182.14 
.06748 - 182.49 
.06655 - 182.88 
,06548 - 183,32 
.06424 - 183.85 
.06282 - 184.49 
.06118 - 185.23 
.05929 - 186.02 
.05717 - 186.79 
.05482 - 187.48 
.05229 - 188.08 
.04960 - 188.58 
.04679 - 188.96 
.04390 - 189.25 
.04097 - 189.43 
.03303 - 189,52 
,03512 - 189,53 
,03227 - 189,47 
,02951 . 189,33 
.02689 - 189,13 
.02444 - 188.87 
.02219 - 168.56 
,02018 - 188,21 
.01841 - 187,82 
.01688 - 187.40 
.01558 - 186.96 
.01450 - 186.52 
.01360 - 186.07 
.01278 - 185,63 
.01198 - 185.20 
,01118 - 184,79 
.01030 - 184,40 
.00913 - 184.02 
.00782 - 183.66 
.00681 - 183.32 
.00624 - 182.99 
.00606 - 182.68 


KAPPA 

CP 

.37 

-.7410 

.34 

-.7344 

.32 

-.7282 

.30 

-.7224 

.28 

-.7171 

.27 

-.7125 

.25 

-.7066 

.25 

-.7054 

.24 

-.7029 

.23 

-.7010 

.23 

-.6994 

.23 

-.6980 

.24 

-.6966 

.24 

-.6949 

.25 

-.6927 

.26 

-.6901 

.27 

-.6872 

.29 

-.6838 

.31 

-.6797 

.34 

-.6741 

.39 

-.6658 

.46 

-.6529 

.56 

-.6324 

.68 

-.6003 

.77 

-.5544 

.80 

-.4970 

.75 

-.4333 

.67 

-.3694 

.57 

-.3062 

.47 

■ -.2454 

.36 

-.1879 

.25 

-.1341 

.15 

-.0843 

.06 

-.0383 

-.03 

.0039 

-.12 

.0424 

-.21 

.0776 

-.29 

.1095 

-.38 

.1383 

-.46 

.1642 

-.55 

.1871 

-.63 

.2071 

-.72 

.2244 

-.80 

.2391 

-.88 

.2514 

-.96 

.2616 

- 1.04 

.2699 

- 1.14 

.2767 

. 1.26 

.2821 

- 1.45 

.2867 

- 1.72 

.2908 

- 2.23 

.2947 

- 2.93 

.2979 

- 7.46 

.3002 

19.86 

.3010 


theta SEP 

,00027 .00004 
.00029 .00004 
.00032 .00004 
.00034 .00004 
.00036 .00004 
.0003e .00003 

.00041 .00003 
.00043 .00002 
.00045 .00002 
.00048 .00002 
.00050 .00001 
.00052 .00002 
.00054 .00002 
,00057 .00002 
.00059 .00003 
.00061 ,00003 
.00064 .00004 
.00066 .00005 
.00068 .00007 
.00071 .00011 
.00073 .00018 
.00076 .00029 
.00079 .00047 
.00083 .00072 
.00089 .00100 
.00096 .00128 
.00105 .00154 
.00115 .00175 
.00125 .00194 
.00137 .00212 
.00150 .00228 
.00163 .00243 
.00178 .00256 
.00192 .00269 
.00208 .00280 
.00223 .00291 
.00239 .00300 
.00256 ,00308 
.00272 .00313 
.00287 .00315 
.00302 .00313 
.00316 .00307 
.00329 .00296 
.00340 .00283 
.00350 .00267 
.00358 .00250 
,00364 .00234 
,00370 .00223 
.00375 .00223 
.00379 .00240 
.00382 .00279 
.00386 .00333 
.00389 .00384 
.00392 .00420 
.00393 .00433 
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08/21/73 


RUN = -87 

CIRCULATORY FLOW A30UT A TRANSONIC AIRFOIl 
M s .780 CL= .591 UY= .016 T/C= .102 


TAPE 6* PATH 0 
2 0 


..800 

0.000 

2 

1.000 

0,000 

2 

0 

.300 

.050 

2 

.475 

-.270 

2 


tape 7 


-8 -87 

4 -.12 . 

15 .08 

l . 

40 .780 

0.000 

-.116 • 

055 1 

25 1 

2 5 6 

9 10 

13 

14 17 

18 22 

33 34 

37 

41 4 2 

49 5 g 53 

54 57 

58 

61 62 




- • ?56 

-, l 3 i .630 

.050 


.002 

-.130 

.600 

.270 

-.148 

-.207 ,360 

-.300 


-.023 

-.167 

.590 

-.270 

.nil 

-.040 - 1.300 

.600 


-.030 

- . 5'0 3 

-.010 

.530 

0.000 

0.000 - 2.000 

0.000 


0.000 

0.000 

- 2.000 

0.000 

-.090 

.325 .200 

-.400 


,200 

-.013 

-.180 

-.470 

.507 

.057 -.056 

-.280 


-.320 

.200 

-.070 

-.280 

.?H 

.032 .460 

.100 


-.063 

.070 

.500 

.050 

.115 

.044 .074 

.029 


.040 

-.012 

1.000 

1.000 
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AUTOMATION paths 


1* 0 

..950 -.290 -2 

. . 880 -.400 1 

-.800 -.450 1 

-.700 -.495 1 

2 0 

-.700 -.495 -1 

-.560 -.495 5 

4 0 

.,100 -.200 1 

.245 -.220 1 

.500 -.300 -1 

.245 -.318 15 

4 0 

-.100 -.200 1 

.245 -. 2:20 1 

.245 -.318 -1 

.170 -.310 15 

5 0 

-.075 .240 -1 

-.180 .270 1 

-.270 ,320 1 

-.390 .390 1 

-.530 .390 1 

4 0 

-.530 ,390 -1 

- , 885 ,340 2 

-.790 .290 1 

-.930 .220 1 

4 0 

-.075 
.080 
.200 
.270 

4 0 

.270 .280 -1 

.410 ,190 1 

.490 .040 1 

,470 -.100 1 


.240 -1 
.240 1 

.280 1 
.280 1 
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07/23/7i» 


RUN = -20 

CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL 
i*!= .720 CL= .609 UY= .018 T/C= ,160 


TAPE 6 « PATH o 
2 0 


-.800 

0.000 

2 

1.000 

0.000 

2 

0 

.300 

0.000 

2 

.430 

-.350 

2 


TAPE 7 


-8-020 

4 -.12 . 

15 ,08 

1.40 

.720 

.001 

-.109 

.060 1 

23 1 

2 5 6 

9 10 

13 

14 33 

34 38 

41 

42 45 

49 50 

53 Si* 57 

58 61 

62 





-.252 

-.170 .680 

.070 


.118 

-.247 

.600 

.400 

.041 

.179 .650 

-.270 


-.129 

-.132 

-.030 

.650 

0.000 

0.000 -2.000 

0.000 


0,000 

0.000 

-2.000 

0.000 

0.000 

0.000 -2,000 

0.000 


0.000 

0.000 

-2.000 

0.000 

-.122 

.361 .268 

-.241 


-.200 

.138 

.100 

-.420 

.149 

-.141 -.150 

-.650 


-.191 

.216 

.400 

-.440 

-.Obi 

.071 .200 

.010 


-.174 

.217 

-.100 

.050 

.157 

-.008 .167 

.077 


.075 

-.012 

1.000 

1.000 
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automation paths 


5 o 


- l.COO 

-.290 

-1 

-.910 

-.450 

1 

-.790 

-.540 

2 

-.710 

-.550 

5 

-.650 

-.550 

5 

2 0 



-.940 

.240 

-1 

-.790 

.390 

1 

5 0 

-.129 

.394 

-1 

-.210 

.416 

2 

-.410 

,460 

1 

-.620 

.450 

1 

-.740 

.420 

1 

5 0 

-.096 

.390 

-1 

0.000 

.382 

2 

.102 

.392 

2 

.200 

.410 

1 

.280 

.400 

1 

3 0 

.290 

.400 

-1 

.440 

.160 

3 

.490 

-.030 

1 

3 0 

.480 

-.030 

-1 

.500 

-.170 

4 

.450 

-.310 

4 

4 0 

-.100 

-.170 

1 

.170 

-.370 

-1 

.220 

-.310 

2 

.280 

-.270 

2 

4 0 

-.100 

-.170 

1 

.280 

-.270 

-1 

.340 

-.280 

2 

.400 

-.320 

2 
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LISTING OF COORDINATES FOR AIRFOIL 72-06-16 RN=20.0 MILLION 


X 

r 

YS 

A NS 

KAPPA 

CP 

THETA 

SEP 

1.00000 

0.00000 

.00421 

-17,75 

-287.89 

.0431 

.00330 

-.34135 

.99952 

.00012 

.00428 

-13.93 

-57.72 

.3347 

.00333 

-.30462 

.99809 

.00047 

.00471 

-13.61 

6.40 

.3855 

.00339 

-.20995 

.99566 

.00105 

.00541 

-13.57 

-4.05 

.3582 

.00345 

-.09612 

.99219 

.00185 

.00632 

-12.45 

-5.64 

.4031 

.00351 

-.01238 

.98750 

.00280 

.00742 

-11.06 

-4.33 

.4559 

.00376 

.01056 

.98187 

.00385 

,00866 

-9.87 

-3.13 

.4784 

.00414 

-.01532 

.97501* 

.00496 

.00996 

-8.69 

-2.90 

.4917 

.00436 

-.02270 

.96708 

.00608 

.01126 

-7,40 

-2,67 

.5077 

.00442 

-.00 563 

.95799 

.00715 

.01252 

-6,09 

-2,35 

.5197 

.00450 

.00146 

.94780 

. OOBll 

.01370 

-4.78 

-2.12 

.5273 

.00461 

-.00275 

.93653 

.00892 

.01477 

-3.47 

-1.94 

.5324 

,00467 

-.00353 

.92423 

.00952 

.01568 

-2.16 

-1.78 

.5350 

.00468 

-.00053 

.91093 

.00987 

.01636 

- . 86 

-1.64 

.5349 

.00466 

.00097 

.89669 

.00991 

.01575 

.43 

-1.52 

.5322 

.00462 

.00099 

.88158 

.00963 

.01579 

1.69 

-1.41 

.5270 

.00454 

.00137 

.86566 

.00998 

,01640 

2.93 

-1.30 

.5192 

.00443 

.00208 

.64902 

.00795 

.01554 

4.13 

-1.20 

.5086 

,00428 

.00255 

.83172 

.00653 

.01418 

5.27 

-1.10 

.4952 

.00410 

.00278 

.81386 

.00471 

.01229 

6,34 

-1.00 

,4791 

,00390 

.00297 

.79552 

,00251 

.00990 

7.34 

-.90 

.4602 

,0036a 

.00311 

.77676 

-.00006 

.00702 

6.26 

-.60 

.4385 

.00344 

.00315 

.75767 

-.00298 

.00370 

9,10 

-.71 

.4142 

.00320 

.00312 

.73831 

-.00621 

.00000 

9.84 

-.62 

.3873 

.00297 

.00305 

.71876 

-.00972 

-.00400 

10,51 

-.55 

.3577 

.00274 

.00296 

.69906 

-.01348 

-.00826 

11.09 

-.47 

.3253 , 

,00252 

.00286 

.67928 

-.01745 

-.01271 

11.59 

-.39 

.2897 

.00230 

.00275 

.65947 

-.02156 

-.01731 

11.99 

-.31 

,2507 

.00210 

.00264 

.63968 

-.02584 

-.02200 

12.31 

-.23 

.2079 

.00191 

.00253 

.61997 

-.03018 

-.02674 

12.52 

-.14 

.1607 

.00172 

.00241 

.60037 

-.03455 

-.03148 

12.61 

-.03 

.1086 

.00155 

.00230 

.58093 

-.03889 

-.03617 

12.58 

.09 

.0516 

,00138 

.00217 

.56167 

-.04316 

-.04075 

12.40 

.23 

-.0109 

.00123 

.00203 

.54262 

-.04729 

-.04516 

12.06 

.38 

-.0786 

.00109 

.00187 

.52379 

-.05123 

-.04936 

11.56 

.55 

-.1511 

.00097 

.00169 

.50519 

-.05492 

-.05328 

10.87 

.72 

-.2269 

.00086 

.00149 

.48680 

-.05831 

-.05686 

10,02 

,88 

-.3037 

.00076 

.00127 

.46861 

-.06136 

-.06008 

9,02 

1,01 

-.3776 

.00068 

.00103 

.45059 

-.06404 

-.06291 

7.92 

1.08 

-.4433 

.00061 

.00079 

.43270 

— « 0 6636 

-.06534 

6,80 

1.08 

-.4968 

.000^6 

.00057 

.41492 

-.06831 

-.06738 

5,73 

1.02 

-.5363 

.00052 

.00039 

.39723 

-.06993 

-.06908 

4,72 

.95 

-.5634 

.00049 

.00025 

.37965 

-.07124 

-.07045 

3,60 

.88 

-.5813 

.00046 

.00016 

.36217 

-.07227 

-.07153 

2,94 

.82 

-.5929 

.00043 

.00010 

.34483 

-.07304 

-.07235 

2.15 

.78 

-.6003 

.00041 

.00006 

.32765 

-.07357 

-.07292 

1,40 

.75 

-.6050 

.00038 

.00004 

.31065 

-.07388 

-.07327 

.68 

.73 

-.6081 

.00036 

.00002 

.29387 

-.07398 

-.07340 

-.02 

.72 

-.6099 

.00034 

.00001 

.27733 

-.07387 

-.07533 

-.71 

.73 

-.6110 

.00032 

.00001 

.26106 

-.07357 

-.07307 

-1.40 

.74 

-.6116 

.00030 

.00000 

.24509 

-.07309 

-.07262 

-2.09 

.77 

-.6119 

.00028 

.00000 
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X Y 


.22946 

-.07242 

.21418 

-.07158 

.19929 

-.07056 

.18481 

-.06937 

.17077 

-.06800 

.15719 

-.06646 

.14410 

-.06475 

.13151 

-.06286 

.11945 

-.06079 

.10792 

-.05855 

.09694 

-.05612 

.08653 

-.05352 

.07669 

-.05074 

.06743 

-.04776 

.05876 

-.04466 

.05068 

-.04137 

.04321 

-.03792 

.03634 

-.03432 

.03009 

-.03057 

.02446 

-.02667 

.01943 

-.02263 

.01502 

-.01845 

.01119 

-.01414 

.00794 

-.00973 

.00524 

-.00522 

.00310 

-.00067 

.00150 

.00389 

.00046 

.00842 

0.00000 

.01290 

.00012 

.01731 

.00082 

.02162 

.00210 

.02581 

.00397 

.02903 

.00647 

.03362 

.00966 

.03716 

.01361 

.04049 

.01833 

.04366 

.02379 

.04667 

.02999 

.04955 

.03692 

.05230 

.04457 

.05491 

.05293 

.05739 

.06199 

.05975 

.07174 

.06199 

.08217 

.06412 

.09327 

.06615 

.10499 

.06909 

.11733 

.06993 

.13025 

.07168 

.14374 

.07334 

.15775 

.07490 

.17228 

,07637 

.18729 

.07775 

.20276 

.07902 

.21866 

.06019 


YS ANG 

-.07199 - 2.80 

-.07118 - 3.53 

-.07019 - 4.30 

-.06903 - 5.12 

-.06770 - 6.00 

-.06619 - 6.95 

-.06451 - 7,96 

-.06265 - 9.11 

-.06061 - 10,35 

-.05340 - 11.72 

-.05601 - 13.23 

-.05343 - 14,89 

-.05068 - 16.72 

-.04775 - 18,75 

-.04464 - 20.97 

-.04136 - 23.43 

-.03792 - 26.18 

-.03432 - 29.27 

-.03057 - 32.75 

-.02667 - 36,69 

-.02263 - 41.07 

-.01945 - 45.88 

-.01414 - 51.03 

-.00973 - 56.40 

-.00522 - 61.93 

-.00067 - 67.66 

.00389 - 73.83 

.00842 - 80.54 

.01290 - 87.75 

.01731 - 95.36 

.02162 - 103.11 
.02581 . 110.89 
.02983 - 118.95 
.03362 - 127,62 
.03716 - 136.18 
.04049 - 143.27 
,04366 - 148,75 
.04667 - 153,20 
.04955 . 156.83 
.05230 - 159,84 
.05491 - 162.36 
,05738 - 164.49 
.05973 - 166,28 
.06195 - 167,80 
.06405 - 169,07 
.06604 - 170.15 
.06794 - 171.09 
.06974 - 171.91 
.07145 - 172.65 
.07307 - 173.32 
.07459 - 173,93 
,07603 . 174,50 
.07736 - 175.03 
.07860 - 175.54 
.07973 - 176,02 


KAPPA 

CP 

.81 

-.6118 

.87 

-.6113 

.94 

-.6101 

1,03 

-.6081 

1.15 

-.6047 

1.28 

-.5964 

1,45 

-.5881 

1.65 

-.5731 

1.90 

-.5524 

2.16 

-.5249 

2.51 

-.4895 

2.90 

-.4456 

3.38 

-.3943 

3.91 

-.3340 

4.54 

-.2630 

5.35 

-.1819 

6.35 

-.0903 

7.60 

.0131 

9.15 

.1295 

10.93 

.2596 

12.83 

.4031 

14.75 

.5559 

16.37 

.7102 

17.71 

.6550 

19.03 

.9793 

20.93 

1.0732 

23.69 

1.1273 

26.57 

1.1313 

29.16 

1.0746 

30.68 

.9509 

30,89 

.7604 

31.06 

.5068 

32.61 

.1929 

33.20 

-.1595 

28.14 

-.4671 

20.01 

-.6753 

14,31 

- • B 177 

10,71 

-.9180 

8.03 

-.9949 

6.16 

- 1,0537 

4.80 

- 1.0981 

3.77 

- 1,1309 

2.97 

- 1.1535 

2.34 

- 1.1666 

1 . 86 

- 1,1715 

1.51 

- 1.1702 

1.25 

- 1.1648 

1.06 

- 1.1568 

.92 

- 1.1474 

.81 

- 1.1371 

.72 

- 1,1265 

.65 

- 1.1158 

.59 

- 1.1051 

.54 

- 1.0944 

.51 

- 1.0839 


THETA SEP 

.00026 -.00000 
.00024 -.00001 

.00022 -.00001 
,00020 -.00002 
.00018 -.00002 
.00016 -.00004 

.00014 -.00005 

.00012 -.00006 
.00010 -.00007 

.00009 -.00009 

,00007 -.00010 

,00005 -.00008 

.00002 -.00004 

TRANSITION 


STAGNATION 


TRANSITION 

0,00000 0.00000 
,00002 .00000 
,00006 .00001 
.00008 .00001 
.00010 .00002 
,00012 .00003 

,00014 .00003 

,00016 .00004 

.00018 .00004 

,00020 .00004 

,00022 .00005 

.00025 .00005 
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X Y 


.23495 

•08126 

.25163 

.08222 

.26865 

.08308 

.28598 

.08381 

.30361 

.06444 

.32150 

.08494 

.33961 

.08532 

.35793 

.08558 

.37642 

.08570 

.39505 

.08569 

.41380 

.08554 

.43262 

.08524 

.45150 

.08478 

.47042 

.08416 

.48934 

.08336 

.50825 

.08237 

.52714 

.08119 

.34599 

.07982 

.56481 

.07826 

.58359 

.07651 

.60232 

.07461 

.62098 

.07256 

.63956 

.07041 

.65802 

.06818 

.67634 

.06588 

.69447 

.06355 

.71239 

.06120 

. 73003 

.05885 

.74742 

.05650 

.76446 

.05418 

.78113 

.05188 

.79740 

.04963 

.81323 

.04741 

.82860 

.04525 

.84346 

.04313 

.85780 

.04108 

.87158 

.03909 

.88478 

.03716 

.89736 

.03530 

.90932 

.03352 

.92061 

.03181 

.93123 

.03016 

.94116 

.02864 

.95036 

.02716 

.95882 

*02581 

.96654 

.02453 

.97349 

.02335 

.97967 

.02226 

.98504 

.02133 

.98960 

.02049 

.99334 

.01977 

.99624 

.01916 

.99832 

.01868 

.99958 

.01836 

1.00000 

.01824 


YS AN 6 

.03076 - 176.40 
.03160 - 176.92 
.08249 - 177.35 
.03319 - 177,77 
,08377 - 178.10 
.08423 - 178.59 
.08457 - 179.00 
.08478 - 179.41 
,08486 - 179.82 
.08480 - 160.24 
,08460 - 180.68 
.08424 - 181.14 
,08373 . 181.63 
.08304 - 182,15 
,08217 - 182.70 
,08111 - 183.27 
.07985 - 183.86 
.07838 - 184.46 
.07672 - 185,04 
.07487 - 185.58 
.07285 - 186.05 
.07070 - 166.45 
.06844 - 186,77 
.06610 - 187.04 
.06371 - 187,25 
.06128 - 187.41 
.05884 - 187.54 
.05640 - 187.64 
.05397 - 187.73 
.05157 - 187.80 
.04920 - 187.87 
.04686 - 187.93 
.04458 - 187.99 
.04233 . 188,05 
.04015 . 188,12 
.03902 . 188,19 
.03595 - 188,26 
.03394 - 188,35 
.03200 - 188.44 
.03013 - 188.54 
.02832 . 188,66 
.02657 - 188,79 
.02488 - 188.93 
.02323 - 189,09 
.02156 - 189,29 
.01984 - 1 B 9.52 
,01908 - 189,75 
,01633 . 189,95 
,01467 - 190.21 
.01320 - 190.62 
.01216 - 191.33 
.01150 - 192.38 
.01100 - 193,79 
.01062 - 195.58 
.01041 - 197.75 


KAPPA 

CP 

.46 

- 1.0735 

.45 

- 1.0632 

.43 

- 1.0528 

.41 

- 1.0424 

.40 

• 1.0318 

.39 

- 1.0209 

.39 

- 1.0095 

.39 

-.9974 

.39 

-.9842 

.40 

-.9697 

.42 

-.9532 

.44 

-.9343 

.46 

-.9119 

.49 

-.8853 

.52 

-.8537 

.54 

-.8170 

.55 

-.7755 

.55 

-.7296 

.52 

-.6802 

.47 

-.6286 

.40 

-.5769 

.34 

-.5273 

.28 

-.4812 

.22 

-.4389 

.18 

-.4009 

.14 

-.3667 

.11 

-.3361 

.09 

-.3085 

.08 

-.2837 

.07 

-.2613 

.07 

-.2408 

.07 

-.2220 

.07 

-.2046 

.07 

-.1884 

.08 

-.1734 

.09 

-.1592 

.10 

-.1458 

.12 

-.1329 

.14 

-.1205 

.16 

-.1064 

.19 

-.0966 

.22 

-.0849 

.27 

-.0732 

.35 

-.0616 

.46 

-.0503 

.55 

-.0368 

.56 

-.0267 

.64 

-.0133 

1,08 

.0007 

2.26 

.0139 

4,43 

.0250 

8.72 

,0332 

14.56 

.0368 

52.41 

.0421 

155,89 

.0431 


theta 

SEP 

.00027 

.00005 

.00029 

.00006 

.00032 

.00006 

.00034 

.00006 

.00036 

.00007 

.00039 

.00008 

.00041 

.00009 

.00044 

.00010 

.00046 

.00011 

.00049 

.00013 

.00052 

.00016 

.00055 

.00020 

.00058 

.00025 

.00061 

.00032 

.00065 

.00039 

.00069 

.00048 

.00073 

.00058 

.00078 

.00068 

.00084 

.00078 

.00090 

.00087 

.00097 

.00093 

,00103 

.00097 

.00110 

.00098 

.00117 

.00097 

.00124 

.00095 

.00131 

.00093 

.00137 

.00090 

.00143 

.00087 

.00149 

.00085 

.00155 

.00083 

.00160 

.00081 

.00165 

.00080 

.00171 

.00079 

.00176 

.00079 

.00180 

.00080 

.00185 

.00081 

.00190 

.00083 

.00194 

.00087 

.00198 

.00091 

.00203 

.00097 

.00207 

.00104 

.00211 

.00114 

.00216 

.00124 

.00220 

.00138 

.00225 

.00158 

.00229 

.00189 

.00234 

.00233 

,00239 

.00285 

.00246 

.00331 

.00254 

.00360 

.00261 

.00369 

.00266 

.00361 

.00270 

.00349 

.00272 

.00338 

,00272 

.00335 




.710 CL= .799 


56 
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07/23/74 


RUN= -12 

CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL 


M= .710 CL= .799 JY= .020 T/C= .144 


TAPE 6. PATH o 
2 0 


-.800 

0,000 

2 

- 1.000 

0,000 

2 

2 0 

.300 

-.050 

2 

.455 

-.360 

2 






TAPS 7 




-5-012 

4 

-.12 . 

15 .06 

1.40 .710 

.004 

-.152 

.050 1 

22 1 

2 

5 6 

9 10 

14 33 34 

36 4l 

42 

45 46 

5o 53 

54 

57 58 

61 62 





-.165 

-.045 

.690 

.015 

.034 

-.220 

.600 

.300 

.024 

.094 

.635 

-.240 

0.000 

-.184 

-.030 

.650 

0.000 

0.000 

-2.000 

0.000 

0.000 

0.000 

-2.000 

0,000 

0,000 

0.000 

-2,000 

0.000 

0.000 

0.000 

-2.000 

0.000 

-.ue 

.347 

. 261 

-.233 

0.000 

.109 

.065 

-.380 

.051 

.104 

0.000 

-.350 

-.103 

.067 

.420 

-.425 

.085 

.OgO 

.330 

.055 

-.033 

.239 

.200 

.050 

.117 

-.050 

.116 

,066 

.045 

-.020 

2,000 

1.000 
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autohat ion paths 


5 o 


■ 1.005 

-.335 

-1 

-.920 

-.405 

2 

-.815 

-.492 

2 

-.715 

-.555 

3 

-.649 

-.563 

4 

' 0 

-.128 

,339 

-1 

-.210 

.355 

2 

-.410 

.385 

1 

-.620 

.373 

1 

-.740 

.341 

1 

-.820 

.293 

1 

-.860 

.230 

1 

i 0 

-.096 

.335 

-1 

0.000 

.324 

2 

.102 

.322 

2 

.200 

.325 

1 

.290 

,320 

1 

i 0 

.290 

.320 

-1 

.400 

.224 

3 

.490 

-.035 

1 

.515 

-.185 

3 

.480 

-.330 

3 

0 

-.100 

-.225 

1 

.190 

-.390 

-1 

.242 

-.335 

2 

.295 

-.300 

2 

.360 

-.315 

2 

.420 

-.360 

2 
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LISTING Of - COORDINATES FOR AIRFOIL 71 - 08-14 KN = 20.0 MILLION 


X 

Y 

YS 

ANG 

KAPPA 

CP 

THtTA 

SEP 

l.onooo 

0.00000 

,00233 

- 20.19 

- 96.66 

.0025 

.00177 

-.10007 

. 9995 =; 

.00015 

.00260 

- 16,71 

- 33.68 

.0614 

.00179 

-.09611 

.59818 

.00059 

.00338 

- 17.34 

- 10.69 

.1971 

.00192 

-.08420 

.99581 

.00130 

.00443 

- 16.10 

- 7.06 

.3404 

.00231 

-.06473 

. 9924 ? 

.00224 

.00557 

- 14.97 

- 4.62 

.4167 

.00293 

-.04097 

.98796 

.00336 

.00693 

- 13.89 

- 3.75 

.4422 

.00324 

-.02085 

.96240 

.00469 

.00851 

- 12,73 

- 3.39 

.4587 

.00318 

-.00938 

.97571 

.00611 

.01015 

- 11.46 

- 3.09 

.4856 

.00329 

-.OOfelO 

.96789 

.00760 

.01176 

- 10.13 

- 2.77 

.5101 

.00358 

-.00748 

.95891 

.00906 

.01342 

- 8.75 

- 2.52 

.5259 

.00376 

-.00660 

.54881 

.01051 

.01503 

- 7.34 

- 2.33 

.5377 

.00361 

-.00353 

.93759 

.01180 

.01654 

- 5,89 

- 2.16 

.5470 

.00387 

-.00176 

.92530 

.01200 

.01788 

- 4.41 

- 2.00 

.5526 

.00393 

-.00123 

.91198 

.01375 

.01900 

- 2.94 

- 1.85 

.5547 

.00394 

-.00044 

t e 9770 

.01430 

.01981 

- 1,48 

- 1.71 

. 5^34 

.00391 

.00058 

. 6825 ? 

.01450 

.02024 

-.06 

- 1.56 

.5489 

.00385 

.00130 

.66653 

.01432 

.02023 

1.30 

- 1.42 

.5413 

.00375 

.00175 

.64981 

.01374 

.01975 

2.60 

- 1.29 

.5309 

.00362 

.00211 

.83245 

.01277 

.01677 

3.83 

- 1.17 

.5178 

.00347 

.00238 

.61451 

.01136 

.01730 

4.98 

- 1.06 

.5021 

,00330 

.00256 

.79610 

.00960 

.01534 

6.06 

-.97 

.4838 

.00312 

.00266 

.77728 

.00744 

.01294 

7.06 

-.68 

.4629 

.00292 

.00272 

.75813 

.00491 

.01012 

7.98 

-.79 

.4389 

.00272 

.00276 

.73675 

,00204 

.00692 

8.82 

-.70 

. 4 H 6 

.00252 

.00277 

.71919 

-.00112 

.00338 

9.57 

-.60 

.3805 

.00231 

.00275 

.69954 

-.00455 

-.00043 

10.20 

-.49 

.3452 

.00210 

.00269 

.67987 

-.00817 

-.00445 

10,69 

-.36 

.3056 

.00190 

.00259 

.66022 

-.01194 

-.00860 

11.02 

-.22 

.2616 

. U 0171 

.00245 

.64066 

-.01578 

-.01261 

11.18 

-.07 

.2139 

.00153 

.00227 

.62120 

-.01962 

-.01700 

11.17 

.09 

.1631 

.00137 

.00206 

.60186 

-.02341 

-.02110 

10.99 

.23 

.1103 

,00123 

.00163 

.58265 

-.02708 

-.02504 

10.66 

.36 

.0567 

.00111 

.00160 

.56358 

-.03059 

-.02878 

10.19 

.48 

.0035 

.00100 

.00138 

.54463 

-.03390 

-.03229 

9.61 

.57 

-.0481 

,00091 

.00116 

.52580 

-.03696 

-.03554 

8,95 

.64 

-.0969 

.00083 

.00097 

.50707 

-.03981 

-.03850 

8.23 

.69 

-.1419 

,00076 

.00079 

.48845 

-.04236 

-.04119 

7.46 

.72 

-.1823 

,00070 

.00064 

.46992 

-.04467 

-.04359 

6.68 

.73 

-.2176 

,00065 

.00051 

.45148 

-.04671 

-.04570 

5,90 

.73 

-.2476 

.00061 

.00040 

.43314 

-.04846 

-.04755 

5.14 

.72 

-.2726 

.00057 

. 00030 

.41491 

-.05000 

-.04913 

4.39 

.70 

-.2927 

.00053 

.00023 

.39679 

-.05126 

-.05046 

3.67 

.66 

-.3068 

.00050 

.00017 

.37880 

-.05233 

-.05156 

2.99 

.66 

-.3215 

.00047 

.00013 

.36096 

-.05315 

-.05243 

2.32 

.64 

-.3313 

.00045 

.00009 

.34329 

-.05377 

-.05309 

1.68 

.63 

-.3386 

.00042 

.00007 

.32581 

-.05419 

-.05355 

1.06 

.62 

-.3441 

.00040 

.00005 

.30855 

-.05442 

-.05362 

.45 

.61 

-.3482 

,00037 

.00003 

.29153 

-.05447 

-.05390 

-.14 

.61 

-.3510 

.00035 

.00002 

.27476 

-.05434 

-.05361 

-.73 

.62 

-.3530 

.00033 

.00001 

.25833 

-.05404 

-.05355 

- 1.33 

.64 

-.3543 

.00031 

.00001 

.24221 

-.05359 

-.05313 

- 1.93 

.67 

-.3551 

.00029 

.00000 
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X 

r 

YS 

ANG 

.22643 

-.05297 

-.05254 

- 2.55 

.21104 

-.05220 

-.05180 

- 3.20 

.19605 

-.05127 

-.05091 

- 3.88 

.16150 

- , O5020 

-.04987 

- 4.59 

.16740 

-.04897 

-.04867 

- 5.37 

.15376 

-.04759 

-.04732 

- 6.21 

.14066 

-.04606 

-.04582 

- 7.14 

.12607 

-. 0U437 

-.04416 

- 8.17 

.11603 

-.04252 

-.04234 

- 9.31 

.10454 

-.04051 

-.04036 

- 10.59 

.09361 

-.03833 

-.03821 

- 12.01 

.08327 

-.03596 

-.03589 

- 13.60 

.07351 

-.03346 

-.03341 

- 15,35 

.06434 

-.03079 

-.03075 

- 17.27 

.05576 

-.02795 

-.02793 

- 19.38 

.04776 

-.02496 

-.02496 

- 21.72 

.04039 

-.02163 

-.02183 

- 24.26 

.03360 

-.01858 

-.01858 

- 27.08 

.02743 

-.01521 

-.01521 

- 30.23 

.02187 

-.01175 

-.01175 

- 33.79 

.01692 

-.00619 

-.00819 

- 37,66 

.01261 

-.00455 

-.00455 

- 42.55 

.00893 

-.00085 

-.00085 

- 48.00 

.00589 

.00291 

.00291 

- 54,29 

,00347 

.00673 

,00673 

- 61.37 

.00169 

.01050 

.01058 

- 69.25 

.00054 

.01446 

,01446 

- 77.75 

0.00000 

,01635 

.01835 

- 86.60 

.00007 

.02223 

.02223 

- 95.50 

.00074 

.02606 

.02606 

- 104.37 

.00202 

.02980 

.02980 

- 113.29 

.00394 

,03341 

.03341 

- 122.37 

.00653 

.03686 

,03668 

- 130.93 

.00985 

.04023 

.04023 

- 138.04 

.01387 

.04349 

.04349 

- 143,65 

.01858 

.04667 

,04667 

- 148.20 

.02396 

.04975 

.04976 

- 151.98 

.03000 

.05274 

.05274 

- 155,28 

.03666 

.05559 

.05559 

- 158,27 

.04396 

.05626 

.05826 

- 161.13 

.05190 

.06076 

.06074 

- 164.10 

.06056 

.06301 

.06297 

- 166.73 

.07000 

.06509 

,06503 

- 168,27 

.08018 

.06710 

.06700 

- 169.36 

.09104 

.06905 

,06891 

- 170.27 

.10255 

.07094 

,07076 

- 171,07 

.11466 

.07277 

.07254 

- 171.78 

.12736 

.07452 

.07426 

- 172,44 

.14061 

.07621 

.07591 

- 173.06 

.15438 

.07761 

.07748 

- 173.63 

.16866 

.07934 

.07896 

- 174.17 

.18342 

, 0807e 

,08036 

- 174,68 

.19862 

.06213 

.08167 

- 175.18 

.21426 

.06336 

.08288 

- 175.65 

.23028 

.08454 

.08400 

- 176,10 


KAPPA 

cp 

theta 

SEP 

.71 

-.3555 

.00026 

.00000 

.76 

-.3553 

.00024 

-.00000 

.82 

-.3547 

.00022 

-.00001 

.90 

-.3529 

.00020 

-.00001 

1.01 

-.3506 

.00016 

-.00002 

1.14 

-.3470 

.00016 

-.00002 

1.31 

-.3414 

.00014 

-.00003 

1.52 

-.3329 

.00012 

-.00004 

1.77 

-.3202 

.00010 

-.00005 

2.07 

-.3018 

.00009 

-.00007 

2.41 

-.2763 

.00007 

-.00008 

2.61 

-.2422 

.00005 

-.00008 

3.26 

-.1986 

.00002 

-.00004 

3.77 

-.1446 



4,43 

-.0808 

TRANSITION 

5.13 

-.0072 



5.99 

.0779 



7.14 

.1728 



8.57 

.2760 



10.49 

.3932 



12.98 

.5182 



16.21 

.6517 



20,37 

.7897 



24,99 

.9239 



29.66 

1.0392 



34.63 

1.1147 



38.24 

1.1293 

stagnation 

39.85 

1.0670 



39.90 

.9230 



39.41 

.7023 



39.24 

,4182 



37,33 

.1028 



30.70 

-.1768 



22,26 

-.3888 



16.11 

-.5459 



12.09 

-.6748 



9.42 

-.7887 



7.80 

-.6923 



6.70 

-.9944 



6.31 

- 1.1033 



5.97 

- 1.2318 



3.95 

- 1.3356 

transition 

2.06 

- 1.3594 



1.62 

“ 1.3566 

,00005 

.00001 

1.29 

- 1.3455 

.00007 

.00002 

1.10 

- 1.3307 

.00009 

.00003 

.96 

- 1.3144 

.00011 

.00004 

.85 

- 1.2975 

.00013 

.00005 

.76 

- 1.2805 

.00015 

.00006 

.69 

- 1.2637 

.00017 

.00006 

.63 

- 1.2472 

.00019 

.00006 

.58 

- 1.2310 

.00021 

.00007 

.54 

- 1.2152 

,00024 

.00007 

.51 

- 1.1998 

.00026 

.00008 

.48 

- 1.1847 

.00028 

.00008 
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x r 


.24669 

.08559 

.26343 

.08653 

.28049 

.06737 

.29785 

.06809 

.31546 

.08669 

.33331 

.08917 

.35136 

.08952 

.36959 

.08973 

.38797 

.08980 

. 4 C 647 

.08973 

.42507 

.08950 

.44376 

.08911 

.46249 

.08856 

.48125 

.08795 

.50002 

.08698 

.51877 

.08592 

.53749 

.08469 

.55616 

, 0832 e 

.57477 

.08166 

.59333 

.07991 

.61181 

.07799 

.63020 

.07593 

.64849 

.07377 

.66665 

.07151 

.68464 

.06920 

.70243 

.06684 

.72000 

.06445 

.73731 

.06205 

.75431 

.05966 

.77098 

.05728 

.78729 

.05492 

.80319 

.05260 

.81865 

.05031 

.83366 

.04808 

.64816 

.04589 

.86215 

.04376 

.87558 

.04169 

.68843 

.03968 

.90069 

.03775 

.91232 

.03569 

.92330 

.03411 

.93362 

.03241 

.94325 

.03079 

.95218 

.02927 

.96039 

.02784 

.96786 

.02651 

.97458 

, 0252 e 

.98053 

.02417 

.98571 

.02317 

.99010 

.02229 

.99368 

.02154 

.99645 

.02092 

.99842 

.02042 

.99961 

,02009 

1.00000 

,01996 


YS AMB 

,08501 - 176.55 
,08591 - 176.98 
.08671 - 177.41 
.08739 - 177.83 
.08794 - 178,25 
.08838 - 178,68 
,08868 - 179,11 
.08885 - 179.55 
.08887 - 180.00 
.08874 - 180.47 
.06846 - 180,94 
.08802 - 181,43 
.08742 . 181,92 
.08664 - 182,42 
,08570 - 182.94 
,08457 . 183,49 
.08325 - 184,05 
.08174 - 184,62 
.08005 . 185,18 
.07818 . 185.71 
.07615 . 186,18 
.07398 . 186,58 
.07171 . 186,93 
.06935 - 187,22 
.06693 - 187.46 
.06448 . 187,66 
.06200 - 187,82 
.05951 - 187.96 
.05703 - 188.07 
.05457 - 188.18 
.05213 - 188.27 
.04973 . 188,36 
.04736 . 188.44 
.04505 - 188,53 
.04279 . 188,62 
.04058 . 188,71 
.03843 - 188.81 
.03634 - 188.91 
.03432 - 189,03 
.03237 - 189,15 
.03048 - 189.28 
,02866 - 189,43 
.02691 - 189,60 
,02519 - 189,79 
,02347 - 189,99 
,02172 - 190.21 
.01992 - 190,48 
,01809 . 190,79 
,01630 - 191.11 
,01466 - 191,47 
,01326 - 192,19 
,01214 - 193.41 
,01126 . 195,14 
,01062 - 197.40 
,01027 - 200,19 


KAPPA 

CP 

.46 

- 1.1698 

.44 

- 1.1550 

.43 

- 1.1403 

.42 

- 1.1255 

.42 

- 1,1103 

.42 

- 1.0946 

.42 

- 1.0781 

.43 

- 1.0604 

.43 

- 1.0912 

.44 

- 1.0206 

.45 

-.9985 

.45 

-.9753 

.96 

-.9510 

.47 

-.9296 

.50 

-.8950 

.52 

-.8611 

.53 

-.8220 

.53 

-.7779 

.51 

-.7302 

.47 

-.6807 

.91 

-.6312 

.35 

-.5835 

.30 

-.5386 

.25 

-.4969 

.21 

-.4588 

.18 

-.4242 

.15 

-.3928 

.13 

- . 3694 

.11 

-.3386 

.10 

-.3151 

.10 

-.2937 

.09 

-.2740 

.10 

-.2558 

.10 

-.2388 

.11 

-.2226 

.12 

-.2079 

.13 

-.1938 

.15 

-.1804 

.17 

» . 1676 

.20 

-.1351 

.23 

-.1430 

.27 

-.1311 

.33 

-.1192 

.39 

-.1074 

.96 

— . 0956 

.58 

-. 0.838 

.79 

-.0720 

.99 

-.0600 

1,09 

-.0971 

2,19 

— , 0 3 3 5 

5,09 

-.0211 

11,00 

-.0111 

18,95 

-.0037 

70,69 

.0009 

212,94 

.0025 


1 HE.TA SEP 

.00031 .00008 
.00033 .00009 
. 0003 ? .00009 
.00038 .00010 
.00040 .00011 
,00043 .00012 
.00045 .00013 
,00048 .00015 
.00051 .00017 
.00054 .00019 
.00057 .00022 
.00060 .00024 
.00063 .00028 
.00066 .00033 
.00070 .00040 
.00074 .00048 
.00078 .00058 
.00083 .00069 
.00089 .00078 
.00095 .00087 
.00101 .00093 
.00108 .00097 
.00115 .00099 
.00121 .00099 
.00128 .00098 
.00135 .00096 
.00141 .00094 
.00146 .00092 
.00154 .00090 
.00159 .00069 
.00165 .00086 
.00170 .00085 
.00176 .00085 
.00181 .00085 
.00186 .00086 
.00190 .00087 
.00195 .00089 
.00200 .00092 
.00204 .00096 
.00208 .00102 
.00213 .00109 
.00217 .00118 
,00222 .00130 
.00226 .00146 
,00230 .00164 
,00235 .00186 
,00240 .00224 
.00244 .00280 
.00250 .00342 
,00258 .00402 
.00266 .00450 
.00272 .00488 
,00277 .00516 
,00280 .00534 
.00261 .00540 
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07/23/71* 


*UN= -138 

CIRCULATORY FlOW ABOUT A TRA\jSOfjlC AIRFOIL 
“1= .700 CL= .999 JY= .020 T/C= .127 


TAPI 6. PATH n 
2 0 


-.800 

0,000 

2 

1.000 

0,000 

2 

0 

.300 

-.100 

2 

.480 

-.1*10 

2 


tape; 7 


-7-138 

«* -.12 . 

20 .08 

1.40 

. 700 

.012 

-.202 

.040 1 

25 1 

2 5 6 

10 13 

14 

18 21 

22 33 

34 

37 38 

45 46 

49 50 53 

54 57 

58 

61 62 




-.115 

.040 .700 

-.040 


-.157 

-.211 

.600 

.200 

o.noo 

-.132 -.030 

.580 


.028 

.025 

.620 

-.210 

0 . 0 o o 

.024 -1.100 

-.450 


.096 

.097 

-.750 

.950 

o.noo 

0.000 -2.000 

0.000 


0.000 

O.QOO 

-2.000 

0.000 

-.nm 

-.005 .440 

-.410 


-.059 

. 316 

.255 

-.225 

o.noo 

.168 .030 

-.340 


.019 

.157 

-.120 

-.420 

.168 

.069 .460 

.100 


.033 

.220 

.500 

.050 

. nS7 

-.035 .065 

.055 


.027 

.013 

4.000 

1.000 
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automation paths 

s o 



-.100 

-.230 

1 

.210 

-.410 

-1 

.265 

-.360 

1 

.310 

-.330 

2 

.330 

-.350 

2 

.440 

-.400 

2 

3 0 



-.850 

-.500 

-1 

-.720 

-.560 

1 

-.570 

-.550 

4 

4 0 



-.850 

-.500 

-1 

-.930 

-.410 

3 

-.990 

-.310 

3 

. 1.010 

-.260 

1 

3 0 



-.430 

.310 

-1 

-.650 

.290 

1 

-.820 

.220 

1 

2 0 



.200 

.240 

-1 

-.400 

.310 

1 

5 0 



.200 

,240 

-1 

.300 

,240 

1 

.400 

.190 

1 

.500 

-.040 

1 

.530 

-.200 

1 

3 0 



.300 

-.100 

1 

.530 

-.200 

-1 

.510 

-.350 

2 
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LISTING OF COORDINATES FOR AIRFOIL 70-10-13 RN =20.0 MILLION 


X 

r 

rs 

ANG 

KAPPA 

CP 

TrtETA 

SEP 

1.00000 

0.00000 

.00221 

-22.73 

-119.58 

— , 0486 

• 00166 

-.16865 

.99957 

.00017 

.00241 

-20.96 

-39.71 

.0806 

.00168 

-.15341 

.99824 

.00065 

.00304 

-19.54 

-10.16 

.2962 

,00175 

-.11253 

.99595 

.00143 

.00399 

-18.39 

-6.76 

.3776 

.00191 

-.06117 

.99265 

.00249 

.00516 

-17.25 

-5,18 

.4034 

.00216 

-.02021 

.98829 

.00378 

,00659 

-16,00 

-4.46 

.4431 

.00237 

-.00405 

.98285 

.00527 

.00825 

-14.68 

-3,80 

.4729 

.00251 

-.00993 

.97630 

.00669 

.01003 

-13.30 

-3.34 

.4968 

.00264 

-.01147 

.96863 

.00860 

.01186 

-11.89 

-2,96 

.5155 

.00276 

-.00502 

.95964 

.01033 

.01372 

-10,46 

-2.63 

.5296 

.00285 

-.00177 

.94995 

.01202 

.01554 

• 9,03 

-2.34 

.5397 

.00291 

-.00229 

.93898 

.01362 

.01727 

-7,63 

-2.09 

.5463 

.00294 

-.0019 B 

.92693 

.01508 

.01886 

-6.26 

-1.87 

.5501 

.00296 

-.00067 

.91398 

.01634 

.02025 

-4.93 

-1.68 

.5515 

,00296 

.00006 

.90003 

.01738 

.02139 

-3.65 

-1.53 

.5506 

.00294 

.00026 

.88519 

.01616 

.02224 

-2.40 

-1.40 

.5479 

,00290 

.00051 

.86952 

.01865 

.02277 

-1.19 

-1.30 

.5435 

,00285 

.00084 

.85308 

.01882 

.02295 

-.00 

-1,22 

.5372 

,00279 

.00108 

.83593 

.01864 

.02275 

1.16 

-1.14 

.5289 

,00271 

.00126 

.81815 

.01810 

.02216 

2.28 

-1,07 

.5185 

,00261 

.00144 

.79981 

.01719 

.02117 

3,37 

-1,00 

.5056 

,00250 

.00162 

.78101 

.01591 

.01977 

4,42 

-.93 

.4898 

.00238 

.00177 

.76181 

.01426 

.01797 

5.40 

-.84 

.4711 

.00225 

.00189 

.74232 

.01227 

.01560 

6.29 

-.75 

.4490 

.00210 

.00196 

.72261 

.00996 

.01328 

7.06 

- . 64 

.4235 

,00195 

.00199 

.70276 

.00737 

.01047 

7.75 

- . 52 

.3947 

.00180 

.00197 

.68283 

.00456 

.00743 

8.29 

-.40 

.3628 

.00166 

.00191 

.66289 

.0 0159 

.00421 

8.66 

-.28 

.3281 

.00151 

.00181 

.64297 

-.00149 

.00089 

8,93 

-.16 

.2911 

.00138 

.00169 

.62311 

-.00464 

-.00247 

9.05 

-.04 

.2524 

.00126 

.00154 

.60334 

-.00778 

-.00583 

9,02 

.08 

.2123 

.00114 

.00139 

.58367 

-.01088 

-.00911 

8.87 

.18 

.1717 

,00104 

.00124 

.56412 

-.01388 

-.01228 

8.61 

.28 

.1313 

.00095 

.00109 

.54469 

-.01676 

-.01531 

8.24 

.36 

.0917 

.00087 

.00094 

.52539 

-.0194 e 

-.01816 

7.80 

.44 

.0535 

.00080 

.00081 

.50622 

-.02202 

-.02081 

7,28 

.50 

.0174 

.00074 

.00068 

.48718 

-.02435 

-.02325 

6.70 

.55 

-.0159 

.00068 

.00057 

.46827 

-.02647 

-.02545 

6.08 

.59 

-.0459 

.00063 

.00046 

.44949 

-.02836 

-.02742 

5.43 

.61 

-.0722 

.00059 

.00037 

.43086 

-.03003 

-.02916 

4.77 

.63 

-.0944 

.00055 

.00028 

.41236 

-.03146 

-.03065 

4.10 

.63 

-.1124 

.00051 

.00021 

.39401 

-.03267 

-.03191 

3.44 

.62 

-.1262 

.00048 

.00015 

.37582 

-.03366 

-.03295 

2.60 

.60 

-.1362 

.00045 

.00010 

.35779 

-.03445 

-.03376 

2.18 

.58 

-.1427 

.00043 

.00006 

.33995 

-.03504 

-.03441 

1.60 

.56 

-.1965 

.00040 

.00003 

.32231 

-.03545 

-.03486 

1.05 

.53 

-.1483 

.00038 

.00002 

.30490 

-.03569 

-.03514 

.53 

.51 

-.1490 

.00035 

.00001 

.28775 

-.03577 

-.03526 

.03 

.51 

-.1491 

.00033 

.00000 

.27088 

-.03571 

-.03523 

-.46 

.51 

-.1491 

.00031 

.00000 

.25432 

-.03551 

-.03506 

-.95 

.53 

-.1491 

.00029 

.00000 

.23811 

-.03517 

-.03476 

-1.45 

.56 

-.1492 

.00026 

' -.00000 



67 


X 

Y 

YS 

ANG 

KAPPA 

CP 

THETA 

SEP 

22226 

-.03470 

-.03432 

- 1.98 

.60 

-.1491 

.00024 

-.00000 

20664 

-.03409 

-.03375 

- 2.54 

.67 

-.1488 

.00022 

-.00001 

19184 

-.05335 

-.03304 

- 3.14 

.74 

-.1478 

,00020 

-.00001 

17729 

-.03247 

-.03219 

- 3.80 

.84 

-.1456 

.00018 

-.00002 

16321 

-.03144 

-.03119 

- 4.53 

.95 

-.1414 

.00016 

-.00003 

14962 

-.03028 

-.03006 

- 5,32 

1.06 

-.1347 

.00014 

-.00004 

13655 

-.02896 

-.02877 

- 6.18 

1.22 

-.1247 

,00012 

-.00005 

12399 

-.02750 

-.02735 

- 7,12 

1.38 

-.1109 

.00010 

-.00006 

11198 

-.02589 

-.02577 

. 8,14 

1.57 

-.0925 

.00008 

-.00007 

10051 

-.02414 

-.02405 

- 9,25 

1.77 

-.0692 

.00006 

-.00006 

06961 

-.02225 

-.02219 

- 10.45 

2.01 

-.0403 

,00003 

-.00003 

07927 

-.02023 

-.02019 

- 11.74 

2.28 

-.0055 

0.00000 

0.00000 

06951 

-.01808 

-.01806 

- 13.13 

2.60 

.0352 



06033 

-.01581 

-.01581 

- 14.64 

2.99 

.0821 

TRANSITION 

05175 

-.01344 

-.01344 

- 16.28 

3.47 

.1353 



04376 

- .01098 

-.01098 

- 18,08 

4.10 

.1950 



03643 

-.00845 

-.00845 

- 20.10 

4.99 

.2613 



02971 

-.00584 

-.00584 

- 22,40 

6.25 

.3348 



02365 

-.00318 

-.00318 

- 25.10 

8.22 

.4165 



01626 

-.00047 

-.00047 

- 28.43 

11.30 

.5068 



01357 

.00229 

.00229 

- 32,67 

16.38 

.6148 



00958 

.00510 

.00510 

- 38.19 

23.45 

.7391 



00631 

,00800 

,00300 

- 45.06 

31.51 

.8786 



00371 

.01097 

.01097 

- 53.14 

39.95 

1.0127 



00179 

.01400 

.01400 

• 62 . 58 

53.58 

1.1074 



00056 

.01707 

.01707 

- 74,01 

63.84 

1.1215 

STAGNATION 

00000 

.02019 

.02019 

- 85.75 

63.80 

1.0200 



00008 

.02334 

.02334 

- 97.22 

63,50 

.7989 



00081 

.02647 

.02647 

- 108.75 

58,59 

.4872 



00220 

.02957 

.02957 

- 119.15 

49.10 

.1513 



00425 

.03259 

.03259 

- 126.77 

42.62 

-.1997 



00701 

.03552 

.03552 

- 137.49 

31.13 

-.4403 



01053 

.03839 

.03839 

- 143,72 

IB . 69 

-.5644 



01479 

.04124 

.04124 

- 148.29 

12.94 

-.6512 



01974 

.04408 

,04408 

- 151.90 

9,48 

-.7245 



02536 

.04690 

.04690 

- 154.89 

7.17 

-.7931 



03166 

.04966 

.04968 

- 157.37 

5.61 

-.6561 



05662 

.05241 

.05241 

- 159.57 

4.70 

-.9133 



04620 

.05508 

.05508 

- 161,54 

3.91 

-.9664 



05442 

.05768 

.05767 

- 163.32 

3.31 

- 1.0154 

TRANSITION 

06325 

.06019 

.06017 

- 164,92 

2.82 

- 1.0603 



07270 

.06260 

.06256 

- 166,38 

2.42 

- 1.1005 

0.00000 

0.00000 

06275 

.06491 

.06485 

- 167.71 

2.08 

- 1.1359 

,00002 

..00002 

09342 

.06712 

.06702 

- 168.91 

1.78 

- 1.1661 

,00005 

-.00003 

10467 

.06921 

,06907 

- 169.98 

1.50 

- 1.1902 

.00008 

-.00004 

11652 

.07120 

.07102 

- 170.93 

1.26 

- 1.2077 

.00009 

-.00003 

12894 

.07309 

,07288 

- 171.76 

1.05 

- 1.2187 

.00011 

-.00002 

14192 

.07488 

.07463 

- 172.49 

.90 

- 1.2243 

.00013 

-.00001 

15543 

,07 658 

.07630 

- 173.14 

.76 

- 1.2261 

.00015 

-.00000 

16946 

.07820 

.07788 

- 173,73 

.68 

- 1.2252 

.00017 

.00001 

18397 

.07972 

.07936 

- 174,27 

.61 

- 1.2225 

.00019 

.00001 

19894 

.08116 

.08076 

- 174.77 

.56 

- 1.2166 

.00021 

.00002 

21435 

.08251 

.08207 

- 175.24 

.51 

- 1,2136 

.00023 

.00002 

23017 

,08376 

.06329 

- 175,69 

.48 

- 1.2084 

,00025 

.00003 

24637 

.08492 

.08441 

- 176,12 

.45 

- 1.2025 

,00027 

.00003 
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X Y YS A.MG 


.26292 

.08598 

.08543 - 176.53 

.27981 

.08695 

.08636 - 176.93 

.29699 

.08781 

.08718 - 177.32 

.31445 

.08857 

.08790 - 177.70 

.33215 

.08922 

.08851 - 178.08 

.35007 

.08976 

.08901 - 178.45 

.36618 

.09019 

.08940 - 178.83 

.38644 

.09051 

.08967 - 179.21 

.40483 

.09070 

.08982 - 179.59 

.42332 

.09077 

.08985 - 179.98 

.44189 

.09071 

.08975 - 180.38 

.46049 

.09052 

.08951 - 180.79 

.47911 

.09019 

.08914 - 181.22 

.49772 

.08972 

,08862 - 181.67 

.51629 

.08910 

.08795 - 182.14 

.53480 

.08833 

.08713 . 182.63 

.55322 

.08741 

.08614 - 183.14 

.57153 

. 08632 

.08498 . 183,67 

.58970 

.08506 

.08363 - 184,25 

.60771 

.08362 

.08208 - 184.90 

.62555 

.08198 

.08032 - 185.62 

.64322 

.08012 

.07832 - 186.38 

.66074 

.07805 

.07610 - 187.09 

.67813 

.07580 

.07370 - 187,68 

.69538 

.07340 

.07117 - 188.13 

.71247 

.07091 

,06855 . 188,46 

.72938 

.06836 

.06588 - 188,71 

.74606 

.06577 

,06319 - 188.90 

.76248 

.06318 

.06050 - 189,05 

.77859 

.06060 

,05783 - 189.17 

.79435 

.05804 

.05518 - 189.28 

.80974 

.05551 

.05258 - 189.36 

.82472 

.05302 

,05001 - 189.47 

.83925 

.05059 

.04750 - 189,56 

.85330 

.04821 

.04504 - 189.66 

.86685 

.04589 

.04264 - 189.76 

.87986 

.04364 

,04031 . 189,87 

.89231 

.04146 

,03905 - 189,99 

.90418 

.03936 

.03586 - 190.12 

.91544 

.03733 

.03375 - 190,26 

.92607 

.03539 

.03171 - 190.42 

.93605 

.03354 

.02975 - 190,59 

.94536 

.03179 

.02786 - 190,78 

.95399 

.03013 

.02602 - 191.00 

.96192 

.02857 

.02419 - 191,25 

.96913 

.02712 

.02233 - 191,54 

.97561 

.02576 

.02042 - 191.80 

.98135 

.02457 

,01850 - 192,05 

.98633 

.02349 

,01664 - 192,42 

.99054 

.02254 

.01491 - 193.07 

.99396 

.02172 

,01342 - 194,13 

.99660 

.02102 

,01219 - 195,62 

.99849 

.02047 

.01121 - 197,53 

.99962 

.02009 

.01049 - 199,90 

1.00000 

.01995 

,01009 - 202.73 


KAPPA 

CP 

theta 

SEP 

.42 

- 1.1964 

.00029 

.00003 

.40 

- 1.1900 

.00032 

.00004 

.39 

- 1.1833 

.00034 

.00004 

.38 

- 1.1764 

.00036 

.00004 

.37 

- 1.1693 

.00038 

.00005 

.36 

- 1.1619 

.00041 

.00005 

.36 

- 1.1542 

.00043 

.00006 

.36 

- 1.1461 

.00045 

.00006 

.37 

- 1.1374 

.00046 

.00007 

.37 

- 1.1281 

.00050 

.00008 

.38 

- 1.1179 

.00053 

.00009 

.39 

- 1.1067 

.00055 

. 00011 . 

.41 

- 1.0941 

.00058 

.00013 

.43 

- 1.0800 

.00060 

.00015 

.45 

- 1.0641 

.00063 

.00018 

.47 

- 1.0463 

.00066 

.00021 

.50 

- 1.0264 

.00069 

.00026 

.53 

- 1.0033 

.00072 

.00034 

,58 

-.9752 

.00076 

.00048 

.66 

-.9379 

.00080 

.00068 

.73 

-.8864 

.00085 

.00093 

.74 

-.8193 

.00092 

.00117 

.65 

-.7446 

,00100 

.00135 

.51 

-.6726 

.00109 

.00144 

.39 

-.6078 

.00118 

.00144 

.29 

-.5519 

.00127 

.00139 

.22 

-.5036 

.00135 

.00132 

.17 

-.4623 

.00143 

.00124 

.14 

-.4266 

.00150 

.00117 

.12 

-.3957 

.00157 

.00111 

.11 

- , 3666 

.00163 

.00106 

.11 

-.3446 

.00169 

.00102 

.11 

-.3226 

.00175 

.00100 

.11 

-.3025 

.00180 

. 0009 B 

.13 

-.2844 

.00186 

.00097 

.14 

-.2675 

.00191 

.00097 

.15 

-.2317 

.00196 

.00098 

.17 

-.2370 

,00200 

.00101 

.20 

-.2229 

.00205 

.00104 

.23 

-.2094 

.00209 

.00108 

.27 

-.1965 

.00214 

.00113 

.32 

-.1842 

.00218 

.00118 

.38 

-.1726 

.00222 

.00129 

.49 

-.1613 

.00226 

.00144 

.62 

-.1496 

.00231 

.00164 

.70 

-.1374 

.00236 

.00186 

.69 

-.1253 

.00240 

.00216 

.89 

-.1136 

.00244 

.00256 

1.79 

-.1020 

.00250 

.00312 

3.79 

-.0903 

.00256 

.00387 

7.03 

-.0783 

.00263 

.00489 

13.03 

-.0671 

.00270 

.00605 

21,21 

-.0576 

,00276 

.00711 

, 74,32 

-.0511 

.00280 

.00784 

220,07 

-.0486 

.00281 

.00811 




hsr=3/l 000-=AQ 00 r 1=13 00L- 
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07/23/71* 


RUN = -85 

CIRCULATORY FLOW ABOUT A TRANSONIC AIRFOIL 


MS .700 CL = 1.100 ur= .000 T/C= ,124 


TARE 6* PATH o 
2 0 


-.800 

0.000 

2 

- 1.000 

0,000 

2 

2 0 

.300 

.050 

2 

.520 

-.320 

2 






TAPE 7 




-8-085 

4 

-.12 . 

20 .08 

1.40 .700 

. 0 i 7 

-.210 0. 

000 1 

23 1 

2 

5 8 

10 18 

21 22 33 

34 37 

38 42 

45 

49 50 

53 

54 57 

58 61 

62 




-.115 

.148 

.650 

.050 

.064 

-.273 

.550 

.450 

0.000 

-.087 

-.040 

.580 

0.000 

0.000 

.900 

0.000 

0.000 

.002 

-1.100 

-.450 

.059 

.050 

-.700 

.750 

0.000 

0.000 

.2.000 

0.000 

0.000 

0,000 

.2.000 

0,000 

-.020 

.249 

.620 

-.240 

-.612 

.258 

.390 

-.330 

O.oOO 

.114 

0.000 

-.320 

.108 

-.256 

-.250 

-.600 

.257 

-.106 

.460 

.100 

.137 

.049 

.500 

.050 

.098 

-.016 

.058 

,062 

.002 

.016 

2.000 

1.000 
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AUTOMATION PftTHS 


3 0 ' 

-.840 

-.510 

-1 

-.700 

-.550 

1 

-.550 

-.545 

4 

4 0 

-.840 

-.510 

-1 

-.940 

-.400 

3 

-.990 

-.320 

3 

- 1.010 

-.260 

1 

-3 0 

.100 

.520 

-1 

-.100 

.520 

1 

-.350 

.550 

1 

3 0 

-.430 

.310 

-1 

-.650 

.290 

1 

-.820 

.220 

1 

6 0 

.200 

.260 

-1 

.300 

.230 

1 

,390 

.160 

1 

.450 

.080 

1 

.450 

-.040 

1 

.480 

-.200 

1 

5 0 

-.100 

-.300 

1 

.300 

-.300 

1 

.220 

-.420 

-1 

.320 

-.390 

1 

.400 

-.360 

1 



4 - ++ 



M= .650 


CL=1 -409 


QYz .016 


T/C= *083 


£80‘ -3/1 910° =A0 60h*I=13 0S9* 
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07/24/74 


RUN = -41 

circulatory flow about A TRAXJSOnIC airfoil 


N|= .650 CL = 1.409 UY= .016 T/C= .083 


TAPE 6. PATH o 
2 0 


-.800 

0.000 

2 

-1.000 

0,000 

2 

2 0 

.400 

-.200 

2 

.515 

-.450 

2 







TAPE 7 




-8-041 

4 

-.12 . 

25 .08 

1.40 

.650 

, 0 1 8 

-.371 

.023 l 

25 1 

2 

5 6 

9 10 

13 

14 17 

18 33 

34 

37 38 

45 46 

49 

50 53 

54 57 

58 

61 62 




-. 095 

.254 

.650 

.110 


-.246 

-.104 

.620 

.500 

.547 

-.844 

.050 

.550 


.025 

.001 

.600 

-.115 

.Oil 

,008 

-.900 

1.800 


0.000 

0,000 

-2.000 

o.ooo 

0.000 

0.000 

-2.000 

Q.000 


0.000 

0.000 

.2,000 

o.ooo 

-.094 

.459 

.242 

-.18 0 


-.070 

.013 

.380 

-.350 

0.000 

.137 

0,000 

-.340 


.102 

.124 

-.150 

-.400 

.348 

-.164 

.460 

.100 


.116 

.021 

.500 

.050 

.133 

-.063 

.037 

.046 


.048 

-.004 

2.000 

1.000 
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AUTOMATION 1 

=aths 

0 

790 

-.610 

-1 

640 

-.600 

4 

0 

790 

-.610 

-1 

940 

-.460 

4 

0 

940 

-.460 

-1 

100 

-.260 

3 

0 

350 

.560 

-1 

460 

.630 

3 

570 

.610 

2 

700 

.570 

2 

0 

200 

.290 

-1 

000 

.335 

2 

250 

.490 

1 

0 

200 

.290 

-1 

350 

.220 

1 

440 

.060 

1 

0 

440 

.060 

-1 

460 

-.030 

5 

440 

-.120 

5 

0 

100 

-.120 

1 

150 

-.220 

-1 

250 . 

-.120 

1 

300 

-.120 

2 

350 

-.140 

2 
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LISTING OF COORDINATES FOR AIRFOIL 65 - 14-08 RN = 20.0 MILLION 


X 

r 

YS 

ANG 

KAPPA 

CP 

THETA 

SEP 

1.00000 

0.00000 

,00118 

- 26.25 

- 495.22 

-.1263 

.00087 

-.08100 

.99958 

.00016 

,00136 

- 20.91 

- 61.96 

.3460 

.00067 

-.07545 

.99833 

.00066 

.00202 

- 22.43 

13.61 

.2026 

.00092 

06030 

.99616 

.00151 

.00300 

. 20,71 

- 17.55 

.2982 

.00109 

-.03893 

.99301 

.00263 

.00419 

- 18,65 

- 6.52 

,4074 

,00137 

-.01816 

.98889 

.00397 

.00561 

- 17.53 

- 3.41 

.4257 

.00146 

-.00561 

.96378 

.00553 

.00727 

- 16,54 

- 3.32 

.4264 

,00141 

-.00261 

.97767 

.00727 

,00909 

- 15.30 

- 3.29 

.4467 

.00142 

-.00242 

.97053 

.00913 

,01101 

- 14.04 

- 2,67 

.4656 

.00152 

-.00237 

.96239 

.01107 

.01301 

- 12.88 

- 2.23 

.4751 

.00157 

-.00175 

.95327 

.01306 

,01506 

- 11,76 

- 1,98 

.4611 

.00155 

-.00083 

.99319 

.01506 

,01710 

- 10.66 

- 1.76 

.4863 

.00155 

-.00036 

.93217 

.01702 

,01910 

- 9.60 

. 1,55 

.4891 

.00156 

-.00024 

.92026 

.01892 

.02102 

- 8.59 

- 1.36 

.4896 

.00155 

-.00007 

.90799 

.02074 

.02285 

- 7.65 

- 1.21 

.4884 

.00153 

.00017 

.89391 

.02245 

.02455 

- 6.76 

- 1.07 

.4856 

.00150 

.00031 

.87957 

.02404 

.02611 

- 5.93 

-.94 

.4816 

.00147 

.00037 

.86451 

.02550 

.02754 

- 5.16 

-.83 

.4763 

.00144 

.00042 

.89877 

• 02683 

. 02882 - 

- 4,46 

-.73 

.4702 

.00140 

.00046 

.83242 

.02901 

.02995 

- 3.83 

-.64 

.4634 

.00136 

.00047 

.81549 

.02906 

.03093 

- 3.25 

-.56 

.4559 

.00131 

.00047 

. 79802 

.02997 

.03178 

- 2,72 

-.49 

.4482 

.00127 

.00045 

.78007 

.03075 

.03250 

- 2.26 

-.42 

.4400 

.00122 

.00043 

.76167 

.03140 

.03309 

- 1.84 

-.37 

.4318 

.00118 

.00041 

.74287 

.03195 

.03357 

- 1.47 

- • 32 

.4235 

.00114 

.00038 

.72369 

. 0 J 23 e 

.03395 

- 1.14 

-.28 

.4152 

.00109 

.00035 

.70419 

.03272 

.03423 

-.85 

-.24 

.4071 

.00105 

.00032 

.68440 

.03297 

.03442 

-.60 

-.21 

.3992 

.00101 

.00030 

.66435 

.03314 

.03453 

-.38 

-.18 

.3916 

.00097 

, CO.O 27 

.64407 

,03324 

.03457 

-.18 

-.16 

.3842 

.00093 

.00024 

.62361 

,03328 

. 03455 

-.01 

-.13 

.3773 

.00089 

.00022 

.60299 

.03325 

.03448 

.13 

-.12 

.3707 

.00086 

.00019 

.58226 

.03318 

,03435 

.26 

-.10 

.3644 

.00082 

.00017 

.56143 

.03307 

.03419 

.37 

-.09 

.3586 

.00076 

.00015 

.54055 

.03291 

.03398 

.47 

-.06 

.3531 

.00075 

.00013 

.51964 

.03273 

.03375 

.55 

-.06 

.3481 

.00072 

.00012 

.49875 

.03251 

.03349 

.63 

-.06 

.3434 

.00068 

.00010 

.47789 

.03227 

.03320 

.69 

-.05 

.3391 

,00065 

.00009 

.45711 

.03201 

.03290 

.74 

-.04 

.3352 

.00062 

.00008 

.43644 

.03174 

.03258 

.78 

-.03 

.3317 

.00059 

.00007 

.41591 

.03145 

.03225 

.82 

-.03 

.3286 

.00056 

.00006 

.39554 

.03116 

.03192 

.85 

-.02 

.3258 

.00053 

.00005 

.37538 

.03085 

.03157 

,87 

-.02 

.3233 

,00050 

.00004 

.35545 

.03055 

.03123 

.88 

-.01 

.3212 

,00047 

.00003 

.33574 

.03024 

.03088 

.89 

-.00 

.3195 

.00045 

.00002 

.31641 

.02994 

.03054 

.89 

,00 

.3181 

,00042 

.00002 

.29737 

.02964 

.03021 

.89 

.01 

.3170 

.00039 

.00001 

.27668 

.02936 

.02969 

.87 

.02 

.3163 

,00037 

.00001 

.26038 

.02908 

.02957 

.85 

.03 

,3160 

.00034 

.00000 

.24250 

.02632 

.02928 

. e 2 

.04 

.3160 

,00031 

-.00000 

.22506 

.02958 

.02900 

.78 

.05 

.3164 

.00029 

-.00001 



78 


X 

Y 

ys 

ANG 

.20809 

.02835 

.02874 

.72 

.19162 

.02816 

.02851 

.66 

.17560 

.02799 

.02830 

.57 

.16029 

.02785 

,02813 

.47 

.19549 

.02774 

.02799 

.34 

.13128 

.02767 

.02790 

.19 

.11770 

.02765 

.02784 

.01 

.10477 

.02767 

.02783 

-.22 

.09251 

.02775 

.02767 

-.49 

.00094 

.02786 

.02797 

-.81 

.07000 

.02807 

.02813 

- 1.22 

.05995 

.02833 

,02336 

- 1.72 

.05057 

.02866 

,02867 

- 2.34 

.04195 

.02907 

.02907 

- 3.14 

.03412 

.02956 

.02956 

- 4.16 

.02707 

,03015 

.03015 

- 5.50 

.02084 

.03005 

.03065 

- 7.32 

.01544 

.03166 

.03166 

- 9.90 

.01088 

.03260 

.03260 

- 13.81 

.00721 

.03371 

.03371 

- 20.41 

.00442 

.03507 

.03507 

- 33,10 

.00243 

.03680 

.03680 

- 49.62 

.00106 

,03007 

.03987 

- 63.85 

.00026 

.04117 

.04117 

- 77.48 

0.00000 

.04361 

.04361 

- 90.37 

.00030 

.04611 

.04611 . 102.93 

.00121 

,04859 

,04859 - 116.89 

.00283 

.05107 

.05107 - 128.56 

.00516 

.05362 

.05362 - 136.03 

.00817 

.05624 

.05624 - 141.37 

.01182 

.05093 

.05893 - 145,55 

.01608 

.06166 

.06166 - 149.03 

.02095 

.06441 

.06441 - 152.01 

.02643 

.06715 

.06715 - 154.63 

.03249 

.06907 

.06987 - 157.02 

.03915 

.07253 

.07253 - 159,21 

.04640 

.07514 

.07514 - 161.21 

.05424 

.07767 

.07766 - 163,02 

.06269 

.06011 

.08009 - 164.65 

.07173 

, 0 B 247 

.08243 - 166,09 

.08136 

,08474 

.08467 - 167,36 

.09158 

.08692 

.08682 - 168.48 

.10237 

.08902 

.08889 - 169.47 

.11372 

.09104 

.09087 - 170.35 

.12561 

.09296 

.09277 - 171.14 

.13802 

.09483 

.09458 - 171.87 

.15092 

.09659 

.09631 - 172.55 

.16431 

.09027 

,09795 - 173.18 

.17815 

,09985 

,09950 - 173,77 

.19243 

.10134 

.10095 - 174,33 

.20712 

.10272 

.10230 - 174.88 

.22220 

.10401 

,10354 - 175,40 

.23764 

.10516 

.10468 - 175.90 

.25343 

.10624 

.10570 - 176.40 

.26953 

.10719 

,10661 . 176,88 


KAPPA 

CP 

theta 

SEP 

.06 

.3172 

.00027 

-.00001 

.08 

.3165 

.00024 

-.00002 

.10 

.3202 

.00022 

-.00002 

.13 

.3225 

.00019 

-.00002 

.17 

.3253 

.00017 

-.00003 

.21 

.3288 

.00015 

-.00003 

.27 

.3330 

.00013 

-.00003 

.34 

.3381 

.00011 

-.00003 

.44 

.3441 

,00009 

-.00003 

.57 

.3513 

.00006 

-.00003 

• 74 

.3600 

.00003 

-.00001 

1.00 

.3704 



1.35 

.3830 

TRANSITION 

1.90 

.3963 



2.71 

.4174 



4.06 

.4411 



6,27 

.4717 



11.02 

.5114 



18.89 

.5658 



47.98 

.6465 



96.61 

.7963 



107,12 

1,0132 



96.73 

1.1099 

STAGNATION 

95.20 

1.0261 



86.85 

.7646 



90.43 

.3432 



84.63 

-.1657 



52.07 

-.4556 



26.11 

-.6125 



19.21 

-.7359 



13.66 

-.8957 



10.52 

-.9975 



8,26 

- 1.0913 



6,81 

- 1.1282 



5.78 

- 1.2113 



4,91 

- 1.2890 



4.18 

- 1.3599 



3.52 

- 1.4200 

TRANSITION 

2.95 

- 1.4693 



2.45 

- 1.5074 

0,00000 

0.00000 

2.05 

- 1.5353 

.00002 

-.00001 

1.71 

- 1.5544 

.00005 

-.00002 

1.44 

- 1.5661 

.00007 

-.00002 

1,24 

- 1,5722 

.00009 

-.00001 

1,08 

- 1.5792 

.00011 

-.00000 

.95 

- 1.5733 

.00012 

.00000 

.86 

- 1,5704 

.00014 

,00001 

.78 

- 1.5662 

.00016 

.00001 

.71 

- 1.5611 

,00018 

.00002 

.66 

- 1.5553 

,00020 

.00002 

.62 

- 1.5491 

.00022 

.00002 

.59 

- 1.5426 

.00024 

.00003 

.56 

- 1.5359 

.00026 

.00003 

.53 

- 1.5289 

.00028 

,00003 

.51 

- 1,5217 

,00030 

,00004 
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X 

Y 

YS 

ANG 

.28592 

.10801 

.10740 

- 177.36 

.30259 

.10871 

.10806 

- 177.83 

.31949 

.10928 

.10859 

- 178.30 

.33661 

.10972 

,10899 

- 178.77 

.35392 

.11002 

.10925 

- 179.24 

.37139 

.11016 

.10937 

- 179.71 

.38899 

.11019 

.10934 

. 180.19 

.40671 

.11006 

.10917 

- 160.68 

.42451 

.10977 

.10883 

. 181.18 

.44237 

.10933 

.10334 

- 181.69 

.46025 

.10871 

,10767 

- 182.23 

.47814 

.10793 

.10683 

- 182.81 

.49599 

.10695 

.10579 

- 183.42 

.51380 

. 1 C 578 

.10453 

- 184.10 

.53152 

.10439 

.10304 

- 184,87 

.54917 

.10275 

.10128 

- 185,77 

.56674 

.10083 

,09922 

- 186.69 

.58427 

.09864 

.09689 

- 187.54 

.80179 

.09621 

.09432 

- 188,27 

.61930 

.09358 

.09155 

— 168,83 

.63678 

.09079 

.08863 

- 189,27 

.65420 

.08790 

.08561 

- 189.63 

.67153 

.08491 

.08251 

- 189.90 

.68874 

.08187 

.07937 

- 190.13 

.70578 

.07880 

.07619 

- 190.33 

.72262 

.07570 

.07300 

- 190,49 

.73924 

.07261 

.06981 

- 190.63 

.75558 

.06952 

.06663 

- 190.76 

.77161 

.06646 

.06348 

- 190.88 

.78731 

.06343 

.06036 

- 190.99 

.80264 

.06043 

.05728 

- 191,11 

.61757 

.05749 

.05425 

- 191.23 

.63206 

.05459 

.05127 

- 191.35 

.64611 

.05176 

.04835 

- 191,47 

.65967 

.04899 

.04550 

- 191.60 

.37272 

.04630 

.04271 

- 191.74 

.88524 

.04368 

.04000 

- 191,89 

.69720 

.04114 

.03737 

- 192,05 

.90859 

.03869 

.03482 

- 192.22 

.91938 

.03634 

.03236 

- 192.41 

.92956 

.03408 

.02998 

- 192.62 

.93911 

.03192 

.02768 

- 192,84 

.94801 

.02988 

.02546 

- 193,08 

.95624 

.02794 

.02328 

- 193.33 

.96380 

.02613 

.02111 

- 193.62 

.97067 

.02445 

.01894 

- 193.96 

.97683 

.02290 

.01687 

- 194,35 

.98228 

.02146 

.01500 

- 194,78 

.98702 

.02022 

.01344 

- 195.20 

.99102 

.01911 

.01230 

- 195.77 

.99428 

.01816 

.01177 

. 196.77 

.99679 

.01737 

.01167 

- 198.31 

.99357 

,01675 

,01160 

- 200.39 

.99965 

.01634 

, 01195 

- 203.05 

1.00000 

.01619 

.01129 

- 206,25 


KAPPA 

CP 

THETA 

SEP 

• SO 

- 1.5142 

,00033 

.00004 

.49 

- 1.5065 

.00035 

.00004 

.46 

- 1.4984 

.00037 

.00005 

.47 

- 1.4899 

,00039 

.00005 

.47 

- 1.4807 

.00041 

.00006 

.47 

- 1 . 47 Q 9 

.00044 

.00007 

.48 

- 1.4601 

.00046 

.00008 

.46 

- 1 . 44&1 

.00048 

.00010 

,50 

- 1.4346 

.00051 

.00012 

.51 

- 1.4191 

.00053 

.00014 

.54 

- 1.4009 

.00056 

.00018 

.58 

- 1.3789 

.00058 

.00023 

.63 

- 1.3513 

.00061 

.00033 

.70 

- 1.3154 

.00065 

.00048 

.82 

- 1.2660 

.00069 

.00069 

.92 

- 1.1956 

.00074 

.00094 

.89 

- 1.1091 

,00081 

.00117 

.79 

- 1,0163 

.00089 

.00132 

.63 

-.9267 

.00098 

.00139 

.49 

-.8490 

.00107 

.00138 

.39 

-.7606 

.00115 

.00134 

.31 

-.7216 

.00124 

.00129 

.25 

-.6704 

.00131 

.00124 

.21 

-.6247 

.00139 

.00119 

.18 

-.5843 

.00147 

.00114 

.15 

-.5486 

.00154 

.00110 

.14 

-.5165 

.00160 

.00106 

.13 

-.4874 

.00167 

.00103 

.13 

-.4612 

.00173 

.00101 

.13 

' -.4374 

.00179 

.00099 

.13 

-.4154 

.00185 

.00097 

.14 

-.3950 

.00191 

.00097 

.15 

-.3760 

.00196 

.00097 

.16 

-.3581 

.00201 

.00098 

.17 

-.3413 

.00207 

.00099 

.19 

-.3254 

.00212 

.00102 

.21 

-.3103 

.00217 

.00105 

.24 

-.2958 

.00221 

.00109 

.28 

-.2818 

.00226 

.00114 

.32 

-.2682 

.00231 

.00120 

.37 

-.2551 

.00236 

.00128 

.42 

-.2424 

.00240 

.00137 

.49 

-.2299 

.00245 

.00148 

.58 

-.2178 

.00250 

.00163 

,73 

-.2057 

.00254 

.00183 

.95 

-.1938 

,00259 

.00213 

1.22 

-.1817 

,00264 

.00261 

1.36 

-.1688 

.00269 

.00318 

1,75 

-.1547 

.00277 

.00352 

3.50 

-.1412 

.00285 

.00339 

7,24 

-.1319 

.00290 

.00258 

14.43 

-.1272 

.00293 

.00131 

24,29 

-.1257 

.00293 

.00008 

87.84 

-.1259 

.00293 

-.00079 

260.57 

-.1263 

.00293 

-.00110 
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.650 CL= 1 .472 DYr.000 T/C= .104 


I o 


82 


08/24/73 


RUN = -114 

CIRCULATORY FLOW ABOUT A TRANSONIC AlRFOU 
H= .650 CL=1.472 0Y= .000 T/C= .105 


TAPE 6 • PATH 0 


2 0 

..BOO 0.000 2 

- 1,000 0,000 2 

2 0 

.300 .050 2 

,563 -.320 2 


tape 7 


-7-114 

4 

-.12 . 

25 .08 

1.40 .650 

.006 

.,320 0. 

000 1. 

5° 

23 1 

2 

5 6 

9 10 

17 18 33 

34 37 

36 42 

45 

46 

49 5 0 

53 

5n 57 

58 61 

52 





-.102 

.061 

.650 

.050 

-.198 

-.018 

.620 

.450 


.434 

-.315 

-.200 

.650 

0.000 

0.000 

,900 

0.000 


-.000 

-.010 

-1.300 

.300 

0,000 

0.000 

.2.000 

0.000 


0.000 

0,000 

-2.000 

0,000 

0,000 

0.000 

.2.000 

0.000 


• 038 

-.084 

.605 

-.175 

-.346 

.338 

.405 

-.285 


0 . 000 

. 1 20 

0.000 

-.340 

.211 

-.116 

-.170 

-.600 


.353 

-.351 

.460 

.100 

.334 

-.032 

.500 

.050 


.081 

-.095 

.034 

.068 

.001 

-.010 

2.000 

1.000 
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AUTOMATION paths 

2 o 


.,790 

”,600 

.1 

..610 

-.590 

9 

i 0 

-.790 

»,6 qD 

. 1 

.,860 

- ,560 

3 

.,950 

-.<♦70 

3 

, 0 

..950 

-.<♦70 

.1 

1,020 

-.390 

3 

1,080 

-.260 

1 

, 0 

.200 

.930 

.1 

0,000 

.990 

1 

.,280 

.970 

1 

0 

..350 

.500 

.1 

.,570 

.580 

2 

.,710 

.550 

2 

0 

.200 

.930 

.1 

,370 

.320 

1 

,<♦50 

.120 

1 

, 460 

.020 

2 

0 

..100 

-.100 

1 

.350 

-.160 

.1 

.250 

-.230 

1 

,150 

-.260 

1 
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LISTING OF COORDINATES FOR AIRFOIL 65-15-10 


L 

X 

Y 

ANG 

KAPPA 

MACH 

CP 

l 

1.00000 

0.00000 

-24.61 

-114.55 

.5354 

.3139 

2 

.99954 

.00019 

-22.76 

-39.91 

.5183 

.3584 

3 

. 99812 

.00075 

-21.08 

-12.30 

.4851 

.4423 

4 

.99569 

.00165 

-19.56 

-6.34 

.4640 

.4941 

5 

.99219 

.00283 

-18.10 

-6.07 

.4555 

.5145 

6 

. 98759 

.00426 

-16.56 

-5.19 

.4464 

.5360 

7 

.981 85 

.00587 

-14.91 

.4.49 

.4371 

.5576 

A 

.97495 

.00759 

-13.20 

-3.96 

.4307 

.5724 

q 

.98691 

.00934 

-11.44 

-3.53 

.4268 

.5613 

10 

.95775 

.01103 

-9.66 

-3.12 

.4248 

.5660 

it 

.94750 

.01261 

-7.93 

-2.72 

.4248 

.5861 

ta 

.93625 

.01401 

-6.29 

-2.33 

.4267 

.5816 

13 

.92407 

.01518 

-4.79 

-1.97 

.4304 

.5733 

14 

.91103 

.01612 

-3.44 

-1.65 

.4352 

.5620 

15 

.89721 

.01680 

-2.25 

-1.3.7 

.4411 

.5465 

16 

.88268 

.01724 

-1.21 

-1.13 

.4476 

.5331 

17 

.86751 

.01744 

-.32 

-.93 

.4547 

.5164 

18 

.85176 

.01742 

.44 

-.76 

.4621 

.4987 


.83548 

.01720 

1.07 

-.61 

.4696 

.4803 

20 

.81873 

.01681 

1.60 

-.49 

.4773 

.4615 

21 

.80154 

.01627 

2.03 

-.38 

.4850 

.4425 

22 . 

.78396 

.01559 

2.37 

-.29 

.4927 

.4235 

23 

.76602 

.01481 

2.63 

-.22 

.5002 

.4045 

24 

.74777 

.01394 

2.82 

-.14 

.5076 

.3859 

25 

.72923 

.01301 

2.94 

-.08 

.5147 

.3677 

26 

.71043 

.01203 

3.00 

-.03 

.5216 

.3500 

27 

.691 40 

.01103 

3.01 

.01 

.5281 

.3331 

28 

.67217 

.01003 

2.98 

.05 

.5343 

.3169 

29 

.65277 

.00903 

2.91 

.08 

.5401 

.3016 

30 

.63321 

.00805 

2.80 

.11 

.5455 

.2873 

31 

.61353 

.00711 

2.67 

.13 

.5505 

.2741 

32 

.59375 

.00622 

2.51 

.15 

.5551 

.2619 

33 

.57369 

.00538 

2.33 

.17 

.5592 

.2509 

34 

.55397 

.00460 

2.14 

.18 

. 5629 

.2411 

35 

.53402 

.00389 

1.93 

.19 

.5661 

.2324 

36 

.51406 

.00326 

1.71 

.20 

. 56ft9 

.2249 

37 

.49412 

.00271 

1.48 

• 20 

.5712 

.2186 

3ft 

.47422 

.00223 

1.24 

.21 

.5731 

.2135 

39 

.45438 

.00184 

1.01 

.21 

.5746 

.2095 

40 

.43463 

.00154 

.77 

.21 

.5757 

.2065 

41 

.41 499 

.00131 

.53 

.21 

.5764 

.2047 

42 

.39549 

.00117 

.29 

.21 

.5767 

.2038 

43 

.37616 

.00111 

.06 

.21 

• 5766 

.2040 

44 

.35702 

.00114 

-.18 

.21 

.5763 

.2050 

45 

.33810 

.00123 

-.41 

.21 

.5755 

.2069 

46 

.31942 

.00140 

-.64 

.22 

.5745 

.2097 

47 

.30101 

.00165 

-.87 

.22 

.5732 

.2133 

4ft 

.28291 

.00196 

-1.09 

.22 

.5716 

.2176 

49 

.26513 

.00233 

-1.32 

.22 

.5697 

.2227 

50 

.24770 

.00277 

-1.55 

.23 

.5676 

.2284 

SI 

.?3n66 

.00326 

-1.77 

.24 

.5652 

.2349 

S2 

.21 403 

.00381 

-2.01 

.25 

.5625 

.2421 

S3 

.19783 

.00441 

-2.24 

.26 

.5596 

.2500 
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L 

X 

r 

ANS 

KAPPA 

MACH 

CP 

54 

.18310 

.00506 

-2.49 

.28 

.5563 

.2586 

55 

.16687 

.00575 

-2.74 

.31 

.5529 

.2679 

56 

.15315 

.00649 

• 3.02 

.34 

.5490 

,2780 

57 

.13797 

.00727 

-3.31 

.38 

.5449 

.2890 

58 

.13437 

.00810 

-3.62 

.43 

.5404 

.3008 

59 

.11136 

.00596 

-3.97 

.50 

.5356 

.3135 

60 

.09898 

.00986 

-4.36 

.62 

.5303 

.3274 

61 

.08724 

.01060 

-4.82 

.74 

.5244 

.3426 

63 

.07618 

.01178 

-5.33 

.65 

.5182 

.3588 

63 

.06581 

.01280 

-5.90 

1.14 

.5113 

.3763 

64 

.05617 

.01386 

-6.69 

1.74 

.5035 

.3968 

65 

.04728 

.01499 

-7.76 

2.45 

.4944 

.4l9i 

66 

.03915 

.01618 

-9.01 

2.70 

.4847 

.4435 

67 

.031 81 

.01743 

-10.37 

4.24 

.4747 

.468o 

68 

.02532 

.01375 

-12.83 

9.51 

.4613 

.5004 

69 • 

.01972 

.02025 

-17.35 

18.46 

.4407 

.5493 

70 

.01494 

.02202 

-23.72 

23.51 

.3970 

.6479 

71 

.01087 

.02407 

-30.08 

25.82 

.3272 

.7891 

72 

.00742 

.02532 

-36.49 

27.65 

.2459 

.9258 

73 

.00461 

.03368 

-44.01 

52.01 

.1489 

1.0411 

74 

.00251 

.03115 

-55.85 

64.25 

.0288 

1.1075 

75 

. 00105 

.03378 

-66.44 

64.11 

.1159 

1.0688 

76 

. Oool9 

.03646 

-78.55 

87.21 

.2845 

.8646 

77 

.onnoo 

.03915 

-93.29 

95.08 

.4674 

.4857 

78 

.00050 

.04187 

-107.31 

80.64 

.6377 

.0347 

79 

.00170 

.04460 

-119.50 

59.41 

.7713 

-.3509 

80 

.00361 

.04738 

-128.69 

38.10 

.8626 

-.6174 

81 

.00618 

.05020 

-135.60 

26.23 

.9322 

-.8179 

83 

.00940 

.05305 

-141.10 

19.02 

.9921 

-.9867 

83 

.01 324 

.05590 

-145.65 

14.69 

1 .0491 

-1.1427 

84 

.01771 

.05871 

-149.68 

12.07 

1.1015 

-1.2815 

85 

.03979 

.06146 

-153.31 

10.03 

1.1530 

-1.4135 

86 

.03850 

.06412 

-156.66 

8.61 

1.2044 

-1.5397 

87 

.03486 

.06665 

-159.76 

7.06 

1.2538 

-1 . 65&0 

88 

.04191 

.06907 

.162.35 

5,02 

1.2901 

-1.7388 

89 

.04968 

.07139 

-164.24 

3,34 

1.3056 

-1.7726 

90 

.05813 

.07366 

-165.67 

2.47 

1.3085 

-1.7789 

91 

.06725 

.07589 

-166.85 

1,96 

1.3057 

-1.7727 

93 

.07701 

.n7807 

-167.88 

1.63 

1.3002 

-1.7607 

93 

.08738 

.08021 

-168.79 

1.39 

1.2935 

-1.7459 

94 

.09833 

.08230 

-169.62 

1.22 

1.2864 

-1.7299 

95 

.10986 

.08432 

-170.39 

1.08 

1.2790 

-1.7135 

96 

.1 31 93 

.08629 

-171.10 

.96 

1.2717 

-1.6971 

97 

.13452 

.08919 

-171.77 

.87 

1.2646 

-1.6809 

96 

.14762 

.09000 

-172.40 

.80 

1.2577 

-1.6651 

99 

.16120 

.09174 

-173.00 

.74 

1.2511 

-1.6498 

inn 

.17534 

.09339 

-173.58 

.69 

1.2447 

-1.6350 

101 

.18972 

.09495 

-174.13 

.64 

1.2385 

-1.6206 

102 

.20462 

.09641 

-174.67 

.61 

1.2326 

-1.6068 

103 

.21 991 

.09777 

-175.19 

.58 

1.2269 

-1.5934 

i n4 

.23557 

.09901 

-175.70 

.55 

1.2215 

-1.5805 

105 

.25157 

.10015 

-176.19 

,53 

1.2162 

-1,5679 

106 

.26790 

.10116 

-176.68 

.51 

1.2110 

-1.5556 

107 

.28452 

.10206 

-177.16 

.50 

1.2060 

-1.5436 

108 

.301 41 

.10282 

-177.64 

.49 

1.2011 

-1.5318 
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L 

* 

Y ANG 

KAPPA 

MACH 

CP 

109 

.31 855 

.10346 -178.11 

.48 

1.1963 

-1.5200 

110 

.33691 

.10396 -178.59 

.47 

1.1914 

-1.5082 

111 

.35347 

.10433 -179.06 

.47 

1.1865 

-1.4963 

113 

.371 19 

.10454 -179.53 

.47 

1.1815 

-1.4841 

113 

.38806 

.10461 .180.01 

.46 

1.1764 

-1.4715 

114 

.40705 

.10453 -180.49 

.47 

1.1711 

-1.4585 

115 

.43513 

.10430 -180.97 

.47 

1.1656 

-1.4449 

116 

.44338 

.10391 -181.46 

.47 

1.1599 

-1.4306 

117 

.46146 

.10337 -181.96 

.46 

1.1538 

-1.4154 

lift 

.47866 

.10367 -182.46 

.49 

1.1473 

-1.3989 

119 

.48785 

.10181 -182.98 

.51 

1.1401 

-1.3807 

1 30 

.51 599 

.10078 -183,52 

.53 

1.1318 

-1.3597 

131 

.53406 

.09957 .184.10 

.57 

1.1219 

-1.3344 

133 

.55303 

.09819 -184.72 

.63 

1.1097 

-1.3029 

1 33 

. 569A9 

.09661 -185.39 

.69 

1.0943 

-1.2629 

134 

.58761 

.09482 -186.12 

.74 

1.0753 

-1.2128 

135 

.60519 

.09382 -186.69 

.75 

1.0533 

-1.1539 

136 

.62264 

.09060 -187.63 

.72 

1.0301 

-1.0913 

137 

.63995 

.08817 -188.33 

.67 

1.0076 

-1.0396 

136 

.65713 

.08556 -188.97 

.62 

.9862 

-.9702 

139 

.67413 

.08278 -189,57 

.58 

.9661 

-.9139 

130 

.69096 

.07986 -190.1? 

.54 

.9474 

-.8612 

1 31 

. 7fl759 

.07682 -190.63 

.51 

.9301 

-.8118 

133 

.73401 

.07367 -191.09 

.48 

.9137 

-.7651 

133 

.74018 

.07044 -191.54 

.46 

.8983 

-.7208 

134 

.75607 

.06713 -191.96 

.45 

.8837 

-.6786 

135 

.771 68 

.06377 -192.37 

.43 

.8698 

-.6383 

136 

.78696 

.06036 -192.75 

.42 

.8565 

-.5996 

1 37 

.80190 

.05693 -193.13 

.42 

.8437 

-.5624 

138 

.81647 

.05349 -193.47 

.41 

.8314 

-.5266 

139 

.83064 

.05005 -193.83 

.41 

.8196 

-.4920 

140 

.84440 

.04662 .194.15 

.42 

.8081 

-.4584 

141 

.85771 

.04323 -194.48 

.42 

.7969 

-.4357 

143 

.67056 

.03987 -194.81 

.43 

.7660 

-.3939 

143 

.88993 

.03656 -195.13 

.45 

.7754 

-.3628 

144 

.89478 

.03332 -195.45 

.46 

.7650 

-.3323 

145 

.90610 

.03016 -195,77 

.49 

.7547 

-.3023 

146 

.91 686 

.02709 -196.09 

.52 

.7445 

-.2727 

1 47 

. 99706 

.02412 -196.42 

.56 

.7345 

-.2433 

146 

.93666 

.02126 -196.76 

.61 

.7244 

-.2141 

149 

.94565 

.01552 -197.10 

.67 

.7143 

-.1848 

150 

.95403 

.01592 -197.46 

.75 

.7041 

-.1551 

161 

.961 74 

.01347 -197.83 

.86 

.6937 

-.1252 

163 

.96879 

.01117 -198.23 

1.01 

.6832 

-.0948 

153 

.97517 

.00905 -198.64 

1.17 

.6724 

-.0640 

164 

.98086 

.00711 -199.08 

1.39 

.6614 

-.0324 

155 

.98583 

.00536 -199.55 

1.74 

.6495 

.0015 

1 56 

.99009 

.00383 -200.06 

2.32 

.6361 

.0394 

157 

.99360 

.00253 -200,64 

3.12 

.6228 

.0767 

158 

.99637 

.00147 -201.29 

5.05 

.6111 

.1092 

159 

.99637 

.00068 -202.11 

8.34 

.592? 

.1615 

160 

.99859 

.00018 -203.20 

32.83 

.5571 

.2565 

181 

t . onnoo 

.00000 -204.61 

100.23 

.5354 

.3139 
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M= -600 


CL= 1 -291 


DY= .016 


T/C= - 100 
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07/16/7** 


RUNs “274 

CIRCULATORY FLOW ABOUT A TRAmSONIC airfoil 
. 600 CL=1.29l OY= .016 T/Cs .100 


TAPE. 6» PATH n 
2 0 


-.800 

0.000 

2 

1.000 

0.000 

2 

0 

.330 

• 050 

2 

.570 

• • 325 

2 


TAPE 7 


-8-274 

2 

-.12 . 

30 .08 

1.40 .600 

.007 

-.330 

.025 

21 1 

2 

5 6 

17 18 

33 34 37 

36 4j 

4 2 i 

45 49 

53 54 

57 ! 

58 6l 

62 





.498 

-.394 

-.200 

.600 

-.256 

-.220 

.600 

.450 

o.noo 

0.000 

.900 

0.000 

0.000 

0.000 

.900 

0.000 

.011 

-.009 

-1.000 

.900 

0.000 

0.000 

-2.000 

0.000 

0.000 

0.000 

-2.000 

0.000 

0.000 

0.000 

-2.000 

0,000 

.040 

-.220 

.590 

-.170 

.009 

.119 

,410 

-.240 

.225 

.568 

-.080 

-.440 

.010 

-.060 

-.650 

-.550 

.583 

-.350 

.460 

.100 

.580 

-.130 

.500 

.050 

.120 

-.114 

.015 

.040 

.004 

-.029 

I. 000 

1.000 



go 


AUTOMATION PATHS 


4 0 


-.800 

0,000 

1 

1.100 

-.250 

-1 

1.080 

-.370 

2 

1.000 

-.500 

2 

0 

-.800 

0,000 

1 

1.000 

-.500 

-1 

-.950 

-.575 

2 

-.814 

-.620 

2 

-.691 

-.625 

2 

0 

-.691 

-.625 

-1 

-.580 

-.630 

2 

-.430 

-.620 

2 

-.380 

-.600 

2 

-.280 

-.575 

1 

-.200 

-.560 

1 

0 

-.200 

-.560 

-1 

-.100 

-.545 

1 

-.054 

-.540 

1 

.046 

-.540 

1 

.110 

-.545 

1 

0 

-.250 

.400 

-1 

-.650 • 

.500 

2 

- • 800 

.450 

2 

0 

• • 250 

.400 

-1 

.100 

.415 

2 

0 

.340 

,038 

-1 

.480 

,005 

1 

.530 

-.125 

1 

.530 

-.230 

1 

.475 

-.255 

1 

0 

-.100 

-.385 

1 

.300 

-.385 

1 

.495 

-.350 

-1 

,385 

-.440 

1 

.210 

-.540 

1 

.110 

-.545 

1 






.820 CL= .590 DY= .016 T/C=.092 


92 


.2 

II 
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07/16/74 


RUN= -255 

CIRCULATORY FLO* ABOUT A TRANSONIC AIRFOIL 
«* .820 CL = .590 0Y = .016 T/C= .092 


TAPE 6* PATH 0 
2 0 


-.800 

0,000 

2 

1.000 

0.000 

2 

0 

.300 

,050 

2 

.470 

-.260 

2 


TAPE 7 


-8-255 

4 

-.12 . 

15 .08 

1.40 

.620 

.0n5 

-.105 

.055 

23 1 

2 

5 6 

10 13 

14 

17 18 

33 34 

37 

38 4l 

49 50 

53 

54 57 

58 61 

62 





-.276 

-.196 

.630 

.050 


.024 

-.192 

.600 

.270 

o.noo 

-.232 

-.110 

.490 


.147 

-.186 

.580 

-.270 

• 1 0 4 

-.034 

-.380 

-.500 


0.000 

0.000 

-2.000 

0.000 

0.000 

0.000 

-2.000 

0.000 


0.000 

0.000 

-2.000 

0.000 

-.194 

.165 

.200 

-.400 


.102 

-.079 

.360 

-.300 

.108 

.231 

-.056 

-.240 


0.000 

.200 

-.070 

-.250 

• 1*2 

.120 

.460 

.100 


.042 

.208 

.500 

.050 

.058 

.002 

.062 

.018 


.029 

-.023 

1.000 

1.000 
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AUTOMATION PATHS 

5 0 

-.964 -.290 -X 

-.930 -.350 1 

-.874 -.405 1 

-.794 -.450 1 

-.675 -.465 1 

3 0 

-.675 -.485 -X 

-.550 -.470 2 

-.460 -.450 5 

5 0 

-.800 0.000 2 

-.875 .255 -X 

-.832 .285 X 

-.685 .350 X 

-.560 .365 X 

5 0 

-.075 .250 -X 

- , X 80 ,260 X 

-.270 .330 X 

-.390 ,360 X 

-.520 .370 X 

4 0 

-.020 .250 -X 

.080 .267 X 

.200 .300 X 

.270 .300 X 

4 0 

.270 .300 -X 

.4X0 .190 X 

.490 .040 X 

.470 -.100 X 

4 0 

-,XOO -.200 X 

,245 -.220 X 

.320 -.355 -X 

,268 -.330 X5 

4 0 

-.XOO -.200 X 

.245 -.220 X 

.266 -.330 -X 

.215 -.305 15 
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LISTING OF ttEASUREO COORDINATES FOR AIRFOIL 82-06-09 


x- 

Y 

X 

r 

X 

r 

oonoo 

.01179 

.24295 

-.04044 

.26830 

.04430 

99940 

.01193 

.22222 

-.03997 

.28622 

.04507 

99759 

.01241 

.20215 

-.03936 

.30866 

.04577 

99459 

.01335 

.18280 

-.03861 

.33155 

.04639 

99039 

.01457 

.16422 

-.03772 

.35886 

.04691 

98502 

.01592 

.14645 

-.03669 

.37851 

.04736 

97847 

.01728 

.12952 

-.03553 

.80285 

.04772 

97077 

.01862 

.11349 

-.03427 

.82663 

.04902 

961 94 

.01995 

.09840 

-.03290 

.85099 

.04923 

95200 

.02095 

.08426 

-.03133 

.87587 

.04939 

94096 

.02186 

.07114 

-.02954 

.50000 

.04944 

92836 

.02254 

.05904 

-.02755 

,52853 

.04943 

91574 

.02292 

. 04801 

-.02535 

.54901 

.04935 

90160 

.02295 

.03806 

-.02292 

,57336 

.04920 

68650 

.02257 

.02923 

-.02027 

.59755 

.04799 

67046 

.02174 

.02153 

-.01743 

.62149 

.04769 

85355 

.02041 

.01499 

-.01452 

.64514 

.04733 

83576 

.01856 

. 00961 

-.01159 

.66844 

. 04691 

31720 

.01617 

.00541 

-.00859 

.69134 

.04643 

79795 

.01329 

.00241 

-.00543 

.71378 

.04589 

77779 

.00993 

.00060 

-.00201 

.73570 

.04530 

75705 

.00614 

0.00000 

.00156 

.75705 

.04464 

73570 

.00199 

.00060 

.00514 

.77779 

.04394 

71375 

-.00245 

.00241 

.00847 

.79785 

.04317 

69154 

-.00705 

.00541 

.01151 

.61720 

.04236 

66844 

-.01167 

.00961 

.01427 

.83578 

.04150 

64614 

-.01619 

.01498 

.01689 

. B5355 

.04059 

62149 

-.02045 

.02153 

.01942 

.87048 

.03940 

59755 

-.02431 

.02923 

.02190 

.88650 

.03790 

57336 

-.02770 

.03806 

.021*31 

.90160 

.03619 

54901 

-.03053 

.04801 

.02665 

.91574 

.03445 

52453 

-.03296 

.05904 

.02971 

.92886 

.05272 

50000 

-.03479 

.07114 

.03044 

.94096 

.03101 

47547 

-.03637 

.08426 

.03203 

.95200 

.02933 

45099 

-.03766 

. 09840 

.03357 

.96194 

.02769 

42663 

-.03669 

.11349 

.03506 

.97077 

.02608 

40245 

-.03950 

.12952 

.03649 

.97847 

.02450 

37951 

-.04013 

.14645 

.03785 

.98502 

.02297 

35486 

-.04057 

.16422 

.03914 

.99039 

.02149 

33155 

-.04095 

.18280 

.04034 

.99459 

.02010 

30866 

-.04097 

.20215 

. 04186 

.99759 

.01990 

28622 

-.04093 

.22222 

.04289 

.99940 

.01904 

26430 

-.04076 

.24295 

.08383 

1.00000 

.01774 
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.750 CL- .629 DYz.000 T/C=.117 


98 


06/20/75 


RJN= -131 

CIRCULATORY FLOW A30UT A TRANSONIC flIRFOIL 
Mz .750 CL= ,&29 OTz .000 T/C= .117 


T APl 6 < PATH 0 


2 0 

.,900 0.0Q0 1 

- 1,000 0.000 1 

2 0 

.100 .200 1 

.390 -.142 1 


tape; 7 


99-131 
6 1 

4 - 

2 

.12 .90 ,oe 

5 6 17 18 

1.40 .750 

.010 

-.120 0 

.000 0 

- • n20 

-.304 

.500 

.100 

-.141 

.237 

• 500 

-.100 

O.oOO 

• 060 

- , 55C 

.800 

0,000 

0.000 

0.000 

.900 

-.039 

.03? 

-1.400 

.120 

-.080 

0.000 

-1.200 

.700 

-.050 

.050 

-1.200 

-.500 

0.000 

.030 

-.700 

.800 

0.000 

.040 

-.850 

- .650 

0.000 

0.000 

0.000 

-.900 

o.noo 

0 .000 

0.000 

-.900 

0.000 

0.000 

0.000 

-.900 

1 . 700 

0.000 

.500 

0.000 

-.300 

.200 

.200 

0.000 

O.oOO 

0,000 

.080 

.016 

0.000 

0.000 

5.000 

1.000 
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LISTING 

OF COORDINATES FOR AIRFOIL 75-06- 

12 

L 

X 

y 

ang 

KAPPft 

«ACH 

CP 

1 

1.00000 

0 .00000 

-7.21 

-26.94 

.6145 

.319n 

2 

.99953 

.00006 

-6.79 

-9.99 

.6122 

.3243 

3 

.99810 

.00022 

-6.35 

-3.78 

.60 69 

.3363 

4 

.99572 

.00047 

-5.90 

-2.82 

.6014 

.3489 

5 

.99237 

.00080 

-5.43 

-2.12 

.5974 

.3579 

6 

.98606 

.00119 

-4.96 

-1.75 

.5944 

.3647 

7 

.98270 

.00163 

-4.47 

-1.50 

.5916 

.3711 

a 

. 97654 

.00208 

-3.97 

-1.32 

.5897 

.3774 

9 

.96934 

.00255 

-3.45 

-1.18 

.5362 

. 3830 

10 

.96120 

. 00300 

-2.92 

-1.08 

.5841 

.3379 

11 

.95212 

.00342 

-2.36 

-1.00 

.5922 

.3921 

12 

.94212 

.00378 

-1.33 

-.94 

.5305 

.3959 

13 

.93122 

• 0 040 7 

-1.26 

-.89 

.5792 

.3989 

14 

.91943 

.00427 

-.67 

-.86 

.5781 

.4011 

15 

.90679 

.00435 

-.05 

-.84 

.5774 

.4028 

16 

.89331 

.00428 

.59 

-.83 

.5770 

.4037 

17 

.87902 

.00405 

1.27 

-.83 

.5770 

.4039 

18 

.86398 

.00362 

1.98 

-.63 

.5777 

.4022 

19 

.84621 

.00296 

2.74 

-.84 

,579o 

,399i 

20 

.83177 

.00206 

3.53 

-.64 

.5814 

.393.9 

21 

.81471 

.00088 

4.36 

-.64 

.5952 

.3854 

22 

.79713 

-.00059 

5.19 

-.61 

.5906 

.373? 

23 

.77909 

-.00236 

6,01 

-.76 

.5981 

,3563 

24 

.76068 

-.00442 

6.77 

-.66 

.6077 

.3344 

25 

.74198 

-.00675 

7.42 

-.54 

.6195 

.3079 

26 

.72309 

-.00930 

7.94 

-.H 

.6332 

.2760 

27 

.70405 

-.01202 

9.31 

-.26 

.6493 

.2410 

2B 

.68491 

-.01485 

e,53 

-.13 

.6644 

.2034 

29 

.66571 

-.01774 

8.61 

-.01 

.6810 

.1643 

30 

.64646 

-.02065 

8.56 

.08 

.6973 

.1246 

31 

.62720 

-.02352 

8.42 

.17 

.7144 

.0651 

32 

.60792 

-.02634 

6.20 

.23 

.7307 

.046? 

33 

.58864 

-.02907 

7.91 

.29 

.7455 

.0084 

39 

.56937 

-.03158 

7.57 

.33 

.7617 

-.028? 

35 

.55012 

-.03418 

7.18 

.36 

.7763 

-.0632 

36 

.53091 

-.03653 

6.77 

.39 

. 79D3 

-.0967 

37 

.51174 

-.03873 

6.33 

.41 

.8035 

-.1285 

30 

.49263 

-.04077 

5.87 

.42 

.B1&0 

-.1585 

39 

.47360 

-.04265 

5.40 

.44 

.8277 

-.1866 

40 

.45467 

-.04436 

4.91 

.45 

.8397 

-.2129 

41 

.43584 

-.04539 

4.42 

.46 

.8498 

-.2371 

42 

.41714 

-.04726 

3.92 

.47 

.8591 

-.2593 

43 

.39859 

-.04844 

3.41 

.48 

.8666 

-.2799 

44 

.38020 

-.04946 

2.90 

.49 

.6742 

-.2978 

45 

.36200 

-.05030 

2.39 

.49 

.8910 

-.3140 

46 

.34401 

-.05097 

1.88 

.50 

.8870 

-.328? 

47 

.32624 

-.05147 

1.36 

.51 

.8923 

-.3406 

40 

.30873 

-.05191 

.84 

.52 

.8967 

-.3511 

49 

.29149 

-.05198 

.32 

.54 

.9004 

-.3599 

50 

.27455 

-.05200 

-.22 

,56 

.9035 

-.3671 

51 

.25793 

-.05196 

-.76 

.58 

.9059 

-.3729 

52 

.24165 

-.05156 

-1,32 

.62 

.9076 

-.3769 

53 

.22574 

-.05112 

-1.90 

.66 

.9096 

-.3793 



100 


L 

X 

r 

ft'JG 

kappa 

MACH 

CP 

54 

.21022 

-.05052 

- 2 . 50 

.70 

.9069 

-.3799 

55 

.19512 

-.04978 

- 3.13 

.76 

.9092 

-.3785 

56 

.18044 

-.04889 

- 3.30 

.52 

.9065 

-. 378 ? 

57 

.16622 

-.08786 

- 8.50 

.90 

.9036 

-.3678 

58 

.15247 

-.08669 

- 5.25 

.99 

.8998 

- • 3578 

59 

.13920 

-.08538 

- 6.08 

1.09 

.6936 

-.3838 

60 

.12644 

-.08398 

- 6.39 

1.20 

.6862 

-.3263 

61 

.11420 

-.08237 

- 7.73 

1.33 

.8772 

-.3049 

62 

.10250 

-.08067 

- 8.73 

1.49 

. 8 6 6 5 

-.2797 

65 

.09134 

-.03886 

- 9.75 

1.66 

.8588 

-.2508 

64 

. 08075 

-.03693 

- 10.38 

1.88 

.8805 

-.2173 

65 

.07074 

-.03891 

- 12.01 

2,14 

.8251 

-.1804 

66 

.06131 

-.03230 

- 13.29 

2.49 

. 808 ? 

-.1397 

67 

.05250 

-.03061 

- 18.69 

2.93 

.7396 

- .0950 

69 

.04431 

-.02838 

- 16.26 

3.53 

.7692 

-. 086r 

69 

.03676 

-.02602 

- 19.03 

4,37 

.7868 

.0076 

70 

.02987 

-.02368 

- 20.10 

5,61 

.7222 

.0666 

71 

.02366 

-.02122 

- 22,58 

7,58 

.6985 

• 1325 

72 

.01814 

-.01877 

- 25.63 

10.71 

.6623 

. 208 ? 

73 

.01336 

-.01626 

- 29, 75 

16.17 

.6232 

, 299 0 

74 

.00932 

-.01370 

- 35.37 

25.93 

.5711 

.4169 

75 

.00605 

-.01105 

- 43.18 

38.62 

.8988 

. 581 ? 

76 

.00351 

-.00827 

- 52.85 

88,69 

.3958 

.7895 

77 

.00165 

-.00538 

- 62.86 

62.39 

.2591 

.9817 

78 

.00049 

-.00280 

- 75.89 

70.59 

.1098 

1.1177 

79 

0.00000 

.00078 

- 86.59 

89 . 2B 

.0823 

1.1440 

80 

.00003 

• 00399 

- 98.60 

83.83 

.1373 

1 . 059o 

ai 

.00056 

. 00717 

- 104.80 

68.86 

.3552 

.8806 

82 

.00171 

.01015 

- 117.71 

78,28 

.5297 

.5071 

93 

,00365 

.01296 

- 130.57 

51.62 

.6490 

.2393 

84 

.00640 

.01573 

- 138.68 

25.91 

.7141 

.0859 

85 

.00993 

.01852 

- 188.18 

17.39 

.7661 

-.0386 

86 

.01415 

.02133 

- 188.32 

12.08 

.8118 

-.1868 

87 

.01906 

.02815 

- 151.72 

9.11 

,6532 

-.2476 

88 

.02461 

.02696 

- 158.58 

7.11 

.8918 

-.3398 

99 

.03080 

.02973 

- 157.07 

5.81 

.9294 

-.8258 

90 

.03761 

.03285 

- 159.30 

8.87 

.9635 

-.5075 

91 

.04503 

,03510 

- 161.32 

8.13 

.9979 

-.5865 

92 

.05304 

,03766 

- 163.20 

3.78 

1.0331 

-.6659 

93 

.06163 

.08009 

- 165.07 

3,58 

1.0709 

-.7898 

94 

.07080 

.08237 

- 166.96 

3,63 

1.1143 

-.8828 

95 

.08057 

.08888 

- 169.05 

3.37 

1.1659 

-.9501 

96 

.09101 

.08629 

- 170.78 

2.15 

1.2015 

- 1.0218 

97 

.10215 

.08800 

- 171.73 

1.27 

1.2122 

- 1.0827 

98 

.11398 

.08963 

- 172.56 

1.01 

1,2133 

- 1.0860 

99 

.12642 

.05118 

- 173.21 

.62 

1.2120 

- 1.0828 

100 

.13946 

.05266 

- 173.79 

.71 

1,2096 

- 1.0357 

101 

.15306 

.05808 

- 178.31 

.63 

1.2048 

- 1.0278 

102 

.16720 

.05583 

- 178.79 

.56 

1.1999 

- 1.0185 

103 

.18183 

.05670 

- 175.28 

.51 

1.1952 

- 1.0092 

104 

.19694 

.05791 

- 175.67 

.47 

1.1906 

-.9999 

105 

.21251 

.05903 

- 176.07 

.43 

1.1360 

-.9907 

106 

.22850 

. 06007 

- 176.85 

.40 

1.1915 

-.9817 

107 

. 21+488 

.06108 

- 176.32 

.38 

1.1772 

-.9730 

106 

.26164 

.06192 

- 177.17 

,36 

1.1730 

-.9686 



101 


L 

X 

i A NIG 

KAPPA 

MACH 

CP 

109 

.27673 

.06271 -177.51 

.34 

1.1690 

-.9564 

110 

.29615 

.06341 -177.94 

.32 

1.1651 

-.9486 

111 

.31365 

.06403 -178.17 

.31 

1.1614 

-.9409 

112 

.33181 

.05455 -178.48 

.30 

1.1578 

-.9336 

113 

.35000 

.06499 -179,90 

.29 

1.1543 

-.926? 

119 

.36639 

.05532 -179.10 

.29 

1.1503 

-.9191 

115 

.36695 

.06556 -179.41 

.29 

1.1473 

-.9120 

116 

.40565 

.06571 -179.71 

.28 

1.1439 

-.9049 

117 

.42446 

.06575 -180.02 

.29 

1.1404 

- , 8976 

118 

.44335 

.06569 -180.33 

.29 

1.1367 

-.8899 

119 

.46229 

.06553 -180.65 

.30 

1.1323 

-.8819 

120 

.48125 

.05526 -180.97 

.30 

1,1296 

-.8730 

121 

.50019 

.06499 -181.31 

.32 

1.1240 

-.863? 

122 

.51910 

.06439 -181.66 

.34 

1.1197 

-.8521 

123 

.53793 

.06379 -182.04 

.36 

1.1126 

-,639i 

129 

.55666 

.06305 -182.44 

.39 

1.1053 

-.8235 

125 

.57526 

.06219 -162.88 

,43 

1.0954 

-.8046 

126 

.59371 

.06118 -183.35 

.47 

1.0853 

-.7817 

127 

.61196 

.06003 -183.66 

.50 

1.0734 

-.7549 

128 

.63006 

.05873 -164.39 

.52 

1.0595 

-.7244 

129 

.64794 

.05727 -184,94 

.54 

1.0444 

-.6909 

130 

.66559 

.05566 -185.50 

.55 

1.0292 

-.6549 

131 

.68302 

.05390 -186.05 

.56 

1.0115 

-.617? 

132 

.70019 

.05200 -186 . 60 

.56 

.9942 

-.5779 

133 

.71710 

.04996 -187.15 

.55 

.9765 

-.5374 

139 

.73373 

.04790 -187.67 

.54 

.9596 

-.4961 

135 

.75007 

.04552 -188.13 

.53 

.9406 

-.4544 

136 

.76609 

.04315 -186.67 

.52 

.9226 

-.4121 

137 

.78179 

.04069 -169.14 

.50 

.90 44 

-.3693 

1 3 s 

.79714 

.03816 -189.57 

.47 

.8863 

-.3265 

139 

.81214 

.03558 .189.93 

.45 

.8632 

-.2834 

140 

.82675 

.03296 -190.35 

.41 

.8501 

-.2403 

141 

.84096 

.03032 -190.67 

.37 

.8322 

-.1974 

142 

.85475 

.02769 -190.95 

.31 

.8145 

-.1550 

143 

.66810 

.02508 -191.17 

.25 

.7972 

-.1133 

144 

.68099 

.02252 -191.33 

.18 

.7903 

-.0727 

145 

.89338 

.02003 -191,43 

.09 

.7640 

-.0336 

146 

.90526 

,01762 -191,46 

.00 

,7495 

.0037 

147 

.91660 

.01533 -191,43 

-.10 

.7338 

.0389 

149 

.92735 

.01316 -191.34 

-.20 

.7201 

.0716 

149 

.93749 

.01114 -191,19 

-.30 

.7073 

.1019 

150 

.94699 

.00928 -191.00 

-.40 

.6956 

.1299 

151 

.95580 

.00759 -190.76 

-.51 

.6849 

.1554 

152 

.96390 

.00607 -190.50 

-.62 

.6749 

.1789 

153 

.97125 

.00472 -190.21 

-.75 

.6657 

.2002 

154 

.97783 

.00355 -169,89 

-.91 

.6573 

.2199 

155 

.96360 

.00256 -189.56 

-1.08 

.6496 

.2380 

156 

.98854 

.00175 -189,22 

-1.27 

.6424 

.2549 

157 

.99262 

.00109 -188,69 

-1,56 

.6355 

.2706 

158 

.99582 

.00060 -188.55 

-2.34 

.6289 

.2859 

159 

.99813 

.00026 -188.16 

-3.51 

,6224 

.3009 

160 

.99953 

.00006 -187.72 

-11.36 

.6163 

.3138 

161 

1.00000 

.00000 -187.21 

-32.82 

.6145 

.3190 
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M= -750 


CL= -668 


DY= .017 


T/C= -151 
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.750 CL= -668 DY-.017 T/C=.lSl 
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-6-24? 
17 1 
57 58 


-.150 

.013 

0.000 

0.000 

-.112 

o.noo 

.706 

.072 


06/24/73 


RUM= -242 

CIRCULATORY FLOW A30UT A TRANSONIC AIRFOIL 


M= .750 CL= .668 0Y= .017 T/C= .151 


tape: 6. PATH 0 


2 0 

..300 0.000 2 

- 1,000 0,000 1 

2 0 

.300 0.000 1 

.550 -.340 1 




tape: 7 



4 

-.12 .25 .08 

1.40 .750 

.007 -.110 

.050 

2 

5 6 9 10 

14 33 34 

37 38 49 

50 33 


.134 

.001 

.600 

.650 

.050 

-.270 

-.048 

0.000 

-.174 

-.067 

• 550 

-.120 

.450 
. 580 

.000 _2 , 00 0 

.000 -2.000 

0.000 

0.000 

0.000 

0,000 

0.000 

0.000 

-2.000 

-2.000 

0.000 

0.000 

.017 

.000 

.450 

0.000 

-.300- 

-.900 

.146 

0.000 

-.228 

0,000 

-.700 

0.000 

-.900 

-.900 

.118 

.092 

.460 

.095 

.100 

.010 

.305 

0,000 

.053 

0,000 

.500 

.500 

.050 

1.000 
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AUrOflATION PATHS 

4 0 

..900 0.000 2 

-.995 -.110 -1 

-.995 -.160 1 

.,970 -.200 1 

6 0 

- . 949 -.260 -1 

-.848 -.390 1 

-.763 -.445 1 

-.663 -.480 2 

-.563 -.495 2 

-.478 -.495 2 

4 0 

-.093 -.210 1 

.242 -.400 -1 

,292 -.390 1 

.353 -.365 1 

15 0 

-.098 .325 -1 

-.003 .315 1 

.102 ,305 1 

.182 .300 1 

.261 .270 1 

.390 .183 1 

.427 .140 1 

.450 .060 1 

.447 -.030 1 

.443 -.095 1 

.442 -.150 1 

.420 -.200 1 

.382 -.230 1 

.337 -.220 1 

.297 -.208 1 

7 0 

-.128 ,330 -1 

-.213 .355 1 

-.323 .365 1 

-.418 .380 1 

-.523 .375 1 

-.623 .360 1 

-.713 ,335 1 

6 0 

-.900 0,000 2 

-.980 .110 -1 

-.935 .200 1 

-.900 .250 1 

-.840 ,300 1 

-.750 .330 1 
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LISTING OF MEASURED COORDINATES FOR AIRFOIL 75-07-15 


X 

r 

X 

r 

X 

Y 

23. n017 

.1900 

13.0017 

0.0000 

17.1994 

.8852 

22.7544 

.2276 

13.0483 

.1479 

17,3999 

.8889 

22.5046 

.2519 

13.0948 

.2003 

17,5949 

.8913 

22.0142 

.2676 

13.1962 

.2798 

17.7991 

.8929 

21.5407 

.2461 

13.2997 

. 3408 

18.0006 

.8934 

21.0028 

.1725 

13.3997 

.3919 

18.2000 

.8932 

20.471 7 

.0691 

13.4957 

. 4358 

18.4000 

.6914 

20.0035 

-.0287 

13.5987 

.4763 

18.5993 

.8888 

19.5167 

-.1316 

13.6987 

.5127 

18.7994 

.8851 

19.0034 

-.2385 

13.7979 

.5460 

18,9999 

.3798 

18.11407 

-.3454 

13.8985 

.5764 

19.2825 

.8711 

18.0029 

-.4186 

13.9992 

.6042 

19.4705 

.8634 

17.5497 

-.4827 

14.1996 

.6523 

19.6595 

.8547 

17.0029 

-.5410 

14.3998 

. 6386 

19.999b 

.8345 

16,5437 

-.5738 

14.5991 

. 7169 

20.3325 

.9077 

16.0030 

-.5944 

14.7931 

.7407 

20.5000 

.7906 

15.5157 

-.5982 

14.9986 

.7616 

20.7275 

.7640 

15.0035 

-.5855 

15.1986 

. 7811 

20.9985 

.7266 

14.5022 

-.5539 

15.3981 

.7981 

21.2986 

.6791 

14.0038 

- . 4948 

15.5991 

.8132 

21.4991 

.6437 

13.7538 

-.4465 

15.7987 

.8271 

21.6925 

.6068 

13.5027 

-.3820 

15,9991 

.8392 

22.0012 

.5422 

13.1*023 

-.3470 

16.1983 

. 8503 

22.2235 

.4390 

13.5039 

-.3056 

16.3991 

. 3594 

22.4965 

.4074 

13.2017 

-.2531 

16.5985 

.3675 

22.7482 

.3141 

13.0996 

-.1820 

16.7993 

.3747 

22.8835 

.2559 

13.0529 

-.1331 

16.9985 

.3804 

23,0017 

.1990 




.733 
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08/24/73 


RJN = -79 

CIRCULaTORT FLOW ABOUT A TRANSONIC aIRFOXU 
M= .7OO CL= .733 07= .029 T/C= .204 


TAPE 6* PATH 0 
2 0 


..900 

0.000 

2 

1.000 

0.000 

1 

0 

.300 

0.000 

1 

.590 

-.190 

1 


Tape 7 


-7 -79 

i* - 

.12 

.25 

.00 

1.90 .700 

-.OO5 

-.115 

.090 

10 1 
56 6l 

2 

62 

5 

6 

9 10 

13 14 33 

34 49 

50 

53 54 

-.107 

.033 

.650 

.070 

-.061 

-.316 

.600 

.300 

-.109 

-,07a 

.650 

-.220 

-.079 

-.132 

-.030 

.660 

0.000 

0.000 

.2.000 

0,000 

0.000 

0.000 

.2.000 

0.000 

0.000 

0.000 

.2.000 

0.000 

0.000 

0.000 

.2.000 

0.000 

.156 

.190 

-.030 

-.400 

0.000 

0.000 

0.000 

-.900 

0.000 

0.000 

0.000 

-.900 

0,000 

0.000 

0.000 

-.900 

.113 

.091 

.200 

.010 

.265 

.179 

- . 100 

.050 

.219 

.153 

.200 

.090 

,063 

.051 

1.000 

1.000 
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AUTOMATION paths 


3 0 


1.000 

-.290 

-1 

-.910 

-.470 

1 

..780 

-.575 

2 

0 

-.780 

-.575 

-1 

..820 

• • 560 

5 

0 

..BOO 

0,000 

2 

-.980 

.150 

-1 

..930 

.260 

1 

..780 

.420 

1 

0 

-.128 

.415 

.1 

..320 

.470 

2 

-.410 

.460 

1 

--.620 

.460 

1 

-.740 

.440 

1 

0 

..098 

.415 

-1 

0.000 

.405 

4 

.120 

.415 

4 

0 

.320 

.350 

-1 

.480 

.150 

3 

.460 

-.030 

1 

0 

..093 

-.210 

1 

.220 

-.420 

-1 

.330 

- . 360 

2 

,430 

-.300 

1 

.450 

-.200 

1 
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HU .800 


H2= .561 


DEL TH= 12.03 


G/C-l -45 


MU. 800 M2=-56l DEL TH= 12-03 B/C= 1 -45 


112 




113 


2 . Evaluation of Analysis Methods 

In this section we present a collection of computer generated 
plots comparing results from different calculations of identical 
flows which demonstrate the correctness and reliability of the 
computer programs which we have developed. 

First we compare the design pressure distribution of Airfoil 
78-06-10 with an inviscid analysis of the same flow at a very fine 
mesh size using the old Murman finite difference scheme listed in 
Section 5 of Chapter III, and with an analysis using the new quasi- 
conservative option listed in Section 7 of Chapter III. Then we 
compare the analysis of the flow past an NACA 0012 airfoil by these 
two schemes, and also by a fully conservative scheme which we have 
not listed. The quasiconservative and fully conservative schemes 
can be seen to give essentially the same shock jump, but the fully 
conservative scheme requires more computer time. The nonconserva- 
tive scheme does not give the full shock jump but agrees better 
with the design calculation for a shock free flow. 

For Airfoil 70-10-13 we have subtracted the calculated boundary 
layer displacement thickness from the design profile. Then we have 
compared the design pressure distribution with the result of an 
analysis using Program H to add a boundary layer correction which 
should restore the original shape if there is no separation. The 
good agreement provides evidence that our new model of the tail 
should eliminate the loss of lift which was experienced with the air- 
foils from Volume I. The calculated displacement thickness of the 
boundary layer is also shown. 

Next we compare the results of calculations on crude and fine 
grids for Airfoil 75-07-15 using Program H. Two shocks appear on 
the fine grid, but the flow is almost shock free on the crude grid. 
This illustrates that on a crude grid the artificial viscosity 
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introduced by the retarded difference scheme can occasionally 
suppress a weak shock. 

There follows a series of inviscid subsonic and supersonic two 
dimensional calculations for Airfoil 65-15-10 performed with an 
unlisted program which uses parabolic coordinates. The shock free 
flow at Mach .65 is in good agreement with the design calculation. 
Thus it appears that satisfactory accuracy can be obtained with the 
parabolic coordinate system, which we have used in three dimensional 
calculations . 

For the same airfoil we present results from another 
unlisted program which calculates the flow over an infinite yawed 
wing. The program uses the full three dimensional difference scheme 
although the flow is effectively two dimensional. The purpose of 
these calculations is to check the effectiveness of the rotated 
difference scheme in preserving invariance of the flow at correspon- 
ding Mach numbers and yaw angles. First we compare crude and fine 
grid calculations for an unyawed wing. This is a typical case where 
the airfoil is operating below its design point and two shocks 
appear. The second shock is eliminated, however, on the crude grid. 
Next we compare corresponding yawed and unyawed conditions on the 
fine grid. In the yawed condition most of the flow is treated 
by the supersonic difference scheme, and the resulting extra artifi- 
cial viscosity is sufficient to eliminate the second shock, as on a 
coarse grid in the unyawed condition. Away from the shock waves, 
however, the two calculations remain in remarkable agreement. 

Finally we show a pressure distribution on a wing of low aspect 
ratio with a 79-03-12 section calculated by the three dimensional 
analysis Program J listed in Section 6 of Chapter III. Although the 
section was designed for Mach .79, drag rise is only just beginning 
at Mach .83, illustrating the Mach relief due to three dimensional 


effects . 



AIRFOIL 78-06-10 M#N=320*60 NCY= 400 NO VISCOSITY 
— ANALYSIS M= .780 ALP= 0.00 CL= .591 CD- -0005 
+ DESIGN M= .760 ALP= Q.00 CL= .591 CD=.0000 


AIRFOIL 78-06-10 M*N~320*60 NCY= 400 NO VISCOSITY 

— QUASI CON M=.780 ALP= 0.00 CL= .593 , CD=.0002 

M= .780 ALP= 0.00 CL= .591 CD=.0000 


+ DESIGN 
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NflCfl 0012 M*N= 160*30 NCY= 800 NO VISCOSITY 
— QUASI CON .750 ALP= 2.00 CL= -580 CD= .'0156 
+ OLD MURMAN M=.750 ALP= 2.00 CL= .444 CD=.0139 



AIRFOIL 70-10-13 ,M*N=160*30 NCY_ 400 R=20 MILLION 
— THEORY M= .700 ALP=0.00 CL=1.034 CD=-0082 
+ DESIGN M= .700 RLP- 0.00 CL= .998 CD=.0000 





09't- OS' I- I 08-- oti*- 00*- Oh' 08 ‘ 'OS' I 


122 



AIRFOIL 65-15-10 

M = .650 • ALP = 0-000 

CL = 1.4866 CO = -.0001 CM = -.2474 







09 - 1 - 03 ' 1 - 
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AIRFOIL 65-15-10 

M = 1 .200 ALP = 0.000 

CL r . 4 07M CD = .1048 CM = -.2738 
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-2.4 T 



1*2 1 



AIRFOIL 65-15-10 YAW= 0-00 M=-630 INFINITE YAWED WING 
— FINE GRID L*M*N=240*32*6 CL=1 -486 CD= .0041 
+ CRUDE GRID L*M*N- 60* 8*6 CL=1 .481 CDr-.0185 
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UPPER SURFACE PRESSURE LOWER SURFACE PRESSURE 

79-03- L2 SECTION ARr 6.0 TWIST 2 DEG 
M = -830 YAW r 15.00 ALP = 1 .20 
L/D = 17.28 CL = .2562 CD = .0148 
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3 . Comparison of Experimental Data with the Boundary Layer 

Correction 

We present experimental data from the National Aeronautical 
Establishment in Ottawa on Airfoils 75-07-15 and 75-06-12 (cf. [7,8, 
9]) and on an airfoil designed by John Dahlin at the McDonnell 
Douglas Corporation. We also present experimental data on Airfoil 
82-06-09 obtained at Aircraft Research Associates, Ltd., in England 
that are British Crown Copyright, and are reproduced by permission 
of the Controller, R & D Establishments and Research, Ministry of 
Defence (PE) . The experimental data is compared with numerical 
calculations using Program H (Chapter III, Section 5), which 
includes the effect of a boundary layer correction. The results for 
Airfoils 75^07-15 and 75-06-12, as well as for the Douglas airfoil, 
were found with transition set at PCH = .07, and with LSEP = 161. 
Those for Airfoil 82-06-09 were found with transition set at 
PCH = .07, but with LSEP = 153. The experimental data on pages 147 
and 148 are from two different series of tests of Airfoil 75-06-12 
with different tunnel porosities; they represent the closest to 
shock free flow that could be obtained. In most cases the agreement 
between theory and experiment is excellent. 


AIRFOIL 75 : 07-\^y M*N= 160*30 NCY= 400 R=20 MILLION 
~ THEORY M- -690 ALP=-2-28 CL=-.059 CD= .0118 
A EXPERIMENT M= -690 ALP=-2-07 CL=--059 CD=.0128 









AIRFOIL 75-07-15 M*N=160*30 NCYr MOO R=20 MILLION 
— THEORY Mb. 687 ALP- 2.61 CL= .809 CD=.0173 
A EXPERIMENT M=.687 ALP= 4.09 CL= .809 CD=.0170 



AIRFOIL 75-07-15 M*N=160*30 NCY= 400 R=20 MILLION 
— THEORY M= -688 ALP=5.01 CL= 1 . 14 8 CD= -0486 
A EXPERIMENT M= -688 flLP=7.17 CL= 1 .148 CD= .0502 
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= 1 -03 CL= .589 CD= .0190 

= 2-01 Cl= .589 CD= .0128 





AIRFOIL 02-06-09 M*N=160*30 NCY= 400 R= 6 MILLION 
— THEORY M= .702 flLP=-1.15 CL= .070 CD= .0072 
A EXPERIMENT M= -702 ALP=-1.00 CL= -070 CD=-0097 


AIRFOIL 82-06-N09 M*N=1B0*30 NCYr 400 R = 6 MILLION 

— THEORY \m= -804 / RLP=-1 -41 CL=-.D05 CD= .0112 

A EXPERIMENT V -804 / RLP= -.98 CL=- -005 CD=-0120 






R [ RFO [ L 82-06-09 M*N=160*30 NCY= 400 R= 

— THEORY M= .827 flLP= .92 CL- -515 


3 MILLION 
CD= .0149 


A EXPERIMENT M=-829 RLP= 1.51 CL= -515 CD=.0l20 


AIRFOIL 82-06-09 M*N=160*30 * NCY= 400 R= 7 MILLION 
— THEORY M= -833 flLP= -82 CL= -551 C0=.0150 
A EXPERIMENT M= -833 ALP= 1-51 CL= -551 CD=-0123 


AIRFOIL 82-06-09 M*N=160*30 

NCYr 

400 

R = 

6 MILLION 

— THEORY M= .840 ALP= 

1 .05 

CL= 

• 530 

CD= 

• 0184 

A EXPERIMENT M=.840 AIP= 

1 .50 

CLr 

• 530 

CD= 

.0136 







= 160*30 NCY= MOO 


R=21 


ALP= 

• 81 

CL= 

.588 

flLP= 

1 .65 

CL= 

• 588 



DOUGLAS AIRFOIL M*N=160*30 NCY= 400 R=14 MILLION 
— THEORY M= .699 ALP= 1-22 CLr .615 CD-. 0128 
A EXPERIMENT Mr. 699 ALP= 1.38 CL= .615 CDr.0115 
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4 . Comparison of Experimental Data with the Boundary Layer 

Correction Using the Quasiconservation Option 

In this section we repeat some of the runs from Section 3 with 
the old Murman finite difference scheme replaced by the quasiconser- 
vation option (Chapter III, Section 7) . The quasiconservation form 
gives better agreement with experiment when there is a strong shock 
wave well forward on the wing section where the boundary layer is 
relatively thin (see pages 132 and 152). It gives'worse agreement 
in some cases with sizeable supersonic zones unless a Mach number 
correction is applied (see pages 138, 154 and 155) . A full conser- 
vation form of the finite difference scheme, not listed, gives 
results virtually identical to those presented here (cf . Section 2) . 


flLRFOLL -75-07-15 M*N=160*30 NCY= 400 R=20 MLLLION 

— THEORY M= -687 flLP= 2.80 CL= .809 CD=.0144 

A EXPERIMENT ' M= .687 f)LP=4.09 CL= -809 CD=.0170 


RIREGLL 35-00- llN^M^/l60*30 NCY= 400 R=20 MILLION 

— THEORY M=-762 flLP= -.05 CL= -362 CD= -0111 

A EXPERIMENT M= -162 BLP= -82 CL= -362 CD=.0121 



-I .2 _ 
-.8 . 
- .4 . 


.0 . 
.4 „ 


• 8 . 

1 .2 . 


fl [RF0 
— T 
A E 
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AIRFOIL 75-07-15 M*N=I60*30 NCY= MOO R = 20 MILLION 

— THEORY M= .755 

A EXPERIMENT M=.763 


ALP = -92 CL= . SQM CD=.0123 

ALP = 2.01 CL= -58M CD=-0128 
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5 . Drag Polars 

The first two figures presented in this section were obtained 
without any boundary layer correction, and they involve just the 
wave drag. The remaining two dimensional drag polars include 
comparisons with the experimental data described in Section 3. The 
agreement is good, except that drag rise may be predicted by the 
theory for Mach numbers that are as much as .02 less than those 
indicated by the experimental data. Discrepancies of this order of 
magnitude have been attributed to wall effect. 

The final drag polars are for three dimensional flows past 
oblique wings. It appears that our computation of the induced drag 
plus the wave drag, which is a relatively small number, is accurate 
enough to yield physically significant values of the lift drag ratio 
L/D. Using a semi-empirical value of the profile drag, we have 
found that our evaluation of L/D compares favorably with the test 
data obtained by R. T. Jones [6] in the transonic wind tunnel at the 
NASA Ames Research Center. Moreover, the theoretical and experimen- 
tal predictions of the effects of angle of attack and twist on the 
distribution of lift agree fairly well. Figure 9 compares experi- 
mental curves of maximum L/D against Mach number at fixed yaw 
angles with the envelope obtained from calculations in which the yaw 
angle was optimized at each Mach number. Figure 10 compares the 
predicted optimal lift drag ratios for two different supercritical 
wing sections. The calculations indicate that near Mach 1 the 
optimal lift drag ratio does not change much with the design Mach 
number of the section if the angle of yaw is adjusted properly. 




CD-t-0 .02*( CL-Q -30 



WAVE. DRAG ON A [RFO IL 78-06-10 AT 

CL = .30. .35 90 AND R = 20 MILLION 


FIGURE 2 



G .2*( M-0 .76 ) 


• 040 



DRRG PGLRR FOR RIRFGIL 79-03-12 RT 
M - -76 81 RNQ R - 20 MILLION 


• 81 


.80 


• 79 


• 78 


• 77 


.76 


FIGURE 3 


.040 



DRAG POLAR FOR AIRFOIL 79-03-12 AT 
CL = .1 5 AND R = 20 MILLION 


FIGURE 4 


.030 i— 



DRAG POLAR FOR AIRFOIL 75-07-15 COMPARING 
OTTAWA EXPERIMENTAL DATA WITH THEORETICAL 
ANALYSIS AT M = 0.69 AND R = 20 MILLION 


FIGURE 5 



Q 

CJ 




a 

CJ 




□ 

CJ 
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DRAG PENALTY ON AN OBLLQUE WING -WITH ARrl2.7 
COMPARISON BETWEEN THEORY AND EXPERIMENT FOR 
JONES A IRFO [L TESTED AT AMES RESEARCH CENTER 


FIGURE 9 
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DRAG PENALTY ON AN OBLIQUE WING WLTH AR=12>7 
THEORETICAL COMPARISON OF TWO DIFFERENT AIRFOILS 

FIGURE 10 
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6 . Schlieren Photographs 

Figures 1, 2 and 3 are from a test at the NASA Langley Research 
Center of Airfoil 79-07-10 appearing in Volume I. Figure 1 shows 
the flow at a fairly high Mach number below the design lift, with 
two shocks on the upper surface and a shock on the lower surface. 
Figure 2 shows the flow slightly below the design point with two 
shocks quite far back, and Figure 3 shows the nearest approach to 
the design flow for this airfoil with one fairly weak shock. 

Figures 4 and 5 are from the Aircraft Research Associates test of 
Airfoil 82-06-09; they are British Crown Copyright, and are repro- 
duced by permission of the Controller, R & D Establishments and 
Research, Ministry of Defence (PE) . Figure 4 shows the flow some- 
what below the design point, as in Figure 2, with two shocks. 

Figure 5 shows the flow above the design point with a single shock 
far back on the airfoil. Figure 6 is from a test performed at the 
Grumman Aerospace Corporation of an airfoil designed by Don 
Mackenzie and Bill Evans, using Airfoil 70-07-20 as a starting 
point. The design pressure gradient was too severe near the tail 
on the upper surface and the flow was strongly separated in the 


test. 
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Fig. I AIRFOIL 79-07-10 AT M = .83 AND a=0° 



Fig. 2 AIRFOIL 79-07-10 ATM =.82 AND a =2° 
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III. FORTRAN PROGRAMS 

1 . Operation of the Turbulent Boundary Layer Correction Program H 

The program which was written for the analysis of the flow 
past an airfoil (Program G) and described in Volume I has been 
rewritten and expanded to incorporate a turbulent boundary layer 
correction. Program F, which was discussed in Volume I and removes 
the turbulent boundary layer, has been superseded by our new 
program. The new Program H can now be used: 

1. As F, in order to compute the turbulent boundary layer 
and remove it from an airfoil produced by our design programs 
explained in Volume I. 

2. As G, to compute the flow around an airfoil without a 
boundary layer correction. 

3. To add iteratively the boundary layer displacement to an 
airfoil in order to evaluate its performance including the effects 
of viscosity. 

4. To obtain a redistribution of airfoil coordinates. 

Program H has been written to operate in much the same way as 

Program G of Volume I. In fact, anyone familiar with Program G 
should have little difficulty in using Program H. Again Tape 3 is 
used for coordinate input and the format for it is prescribed by 
the FSYM value. The deck structure and data structure correspond- 
ing to the FSYM values appear in Table 1 of Section 2. In order to 
facilitate the comparison of theoretical results with experimental 
data or any other data we have provided the user with the option of 
plotting the comparison data. If Tape 4 contains test data and 
XP = 1, the comparison data, if it is test data, will be designated 
by triangles (A) on the Calcomp plots of the pressure distribution. 
If the comparison data is design data, it is designated by plus 
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signs (+) . The format of Tape 4 is shown in Table 2. The parameter 
SNX selects the plot symbol for the comparison data. 

All input parameters which can be varied appear in the input 
glossary and they can be redefined by data cards prepared with 
standard namelist conventions. Many of the parameters are the same 
as those used previously in Program G. Additional parameters which 
will generally not need to be changed from case to case have been 
initialized by means of data statements in the various subroutines. 
They can be changed by updating the program. 

The output consists of a printed copy of the numerical results, 
Calcomp plots of the results and a printed Mach number chart. 

If the program is to run as old F, no namelist information is 
necessary; default values will be used for this entire program. The 
default values set transition at the maximum value of the pressure 
distribution CP and set the Reynolds number RN equal to 20.E06. 

If these default values are not those required for the case under 
consideration then it is sufficient to provide a data card with the 
correct values. During execution of the so-called F mode, the coor- 
dinates will be redistributed, angles for the airfoil computed, a 
mapping onto the circle performed and the boundary layer removed. 

The printout from this program is similar to the printout from Pro- 
gram F. Upon termination Tape 3 will contain the output data in the 
FSYM = 2. format and it can be used as input to the program when it 
is used to perform a flow calculation with the boundary layer dis- 
placement. The termination of the program produces an output listing 
of the original airfoil coordinates x, y, the corrected coordinates 
YS , the surface slope and curvature, the pressure distribution CP, 
the momentum thickness THETA and the separation parameter SEP. 

As explained in Section 5 of Chapter I, when this code is used 
to add on the boundary layer correction, it is run as G for NS1 
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(see the Glossary) cycles and then the displacement thickness is 
computed by means of the Nash-Macdonald equations (von Karman equa- 
tion) and added to the original airfoil. The resulting airfoil is 
then mapped onto the circle and the flow is computed for another 
NS1 cycles. This process is repeated every NS1 cycles until the 
total number of flow cycles is computed. The program runs until 
NCY = NS, where NCY is the running tally of flow cycles, or until 
the convergence tolerance ST is achieved. If NS1 NS or if RN =0, 
no boundary layer correction will be made and the program runs 
as old G. 

If FSYM = 2 . or FSYM = 4., surface slopes are not provided. 

The slopes are needed to perform the mapping and are obtained by 
passing splines through the x and y coordinates. If the parameter 
IS is non-negative the x and y coordinates are redistributed before 
computing the slopes. If IS > 0 these new x,y coordinates are 
smoothed IS times. The smoothing formula is weighted so that the 
most smoothing is applied at the tail. IS = 2 is' the default. 

After the surface slopes are obtained the mapping to the circle is 
performed as discussed in Chapter I, Section 4, at NMP = 2*NFC 
intervals, where NFC is the number of terms in the Fourier series. 
The mapped airfoil coordinates are obtained at M+l points; M = 160 
for the coordinates after the first mapping. Of these M+l mapped 
coordinates, 108 points (NT) are saved. The points are obtained by 
thinning out every other point of the upper and lower surfaces near 
the trailing edge. The flow calculation is generally started on a 
cruder grid, M*N = 80x15. After the flow, the ordinary differen- 
tial equation given by Nash and Macdonald is integrated at NPTS 
points in the circle plane. NPTS = 81 is the default value. The 
input to this equation is the set of local Mach numbers at the NPTS 
points of the circle plane which are obtained from the flow calcula- 
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tion . The differential equation is solved for the momentum thick- 
ness THETA, from which the displacement thickness DELS is computed 
at the NPTS points. In solving the differential equation the 
quantity SEP is bounded by a limit SEPM in order to permit integra- 
tion through a shock. For all x values greater than a prescribed 
value XSEP , SEP is set equal to its computed values even if SEP is 
greater than SEPM. XSEP = .93 and SEPM = .004 are the default 

values. An interpolation is performed to obtain the displacement 
thickness at the NT points of the original airfoil. The corres- 
pondence used for interpolation is through arc length. The 
original airfoil is modified by adding the displacement thickness 
to it along a vertical projection. In order to improve the conver- 
gence process the computed displacement thickness is subjected to 
monotonicity conditions on the upper and lower surfaces. It is 
also smoothed IS times and underrelaxed using a relaxation 
parameter RDEL. For NPTS = 81, we have chosen IS = 2 and 
RDEL = .125. If the number of points used to solve the differ- 

ential equation is doubled it is reasonable to increase IS by a 
factor of 4. The new airfoil defined by the NT coordinates x,y is 
mapped onto the circle and then the flow calculations are resumed. 

An additional feature of this program is the option of modify- 
ing the Mach number distribution after separation for input to the 
Nash-Macdonald equation. The pressure distribution on the upper 
surface is altered by a linear extrapolation of the pressure from 
some point along the upper surface to a base pressure BCP at the 
tail. LSEP is the index of the x array at which this extrapolation 
begins and should be placed after the point at which separation 
occurs. LSEP is obtained empirically. LSEP+1 is the index of the 
first point at which the pressure distribution is modified. The 
initial BCP value is an estimate.. This value is iterated making 
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use of the assumption that the pressure distribution is monotonic 
after separation. The search for monotonicity is made from 
x = XMON to the trailing edge. The straight line for the pressure 
distribution after separation is determined each time by the value 
at the point LSEP and the iterated BCP . 

We have found that good results are generally obtained without 
making use of this option and have, therefore, set the LSEP default 
value to M+l. This means that the pressure distribution derived 
from the flow will not be modified on the upper surface. In diffi- 
cult cases it may help to alter the pressure distribution in this 
manner . 

There is no printout during each boundary layer calculation, 
but the boundary layer computed at the NPTS points on the upper 
surface and lower surface is plotted. In the plot the upper 
surface starts at the center and x = 1. is at the bottom of the 
graph paper. The lower surface starts at the center and x = 1. is 
at the top of the page. The quantities printed out after each KP 
cycles of flow are described in the output glossary. The first 
eight variables change during the flow calculation. The last five 
quantities are the result of computations in the boundary layer 
correction subroutines and remain constant for the NS1 flow cycles. 
The flow program has been modified so that the flow can be computed 
with a fixed CL or a fixed ALP; the parameter which varies is 
printed out after each KP cycles. 

The computation proceeds for NS cycles or until both the 
maximum velocity potential correction and the maximum circulation 
correction are less than the tolerance ST. The ITYP parameter is 
used as in Volume I to select the type of output. If ITYP >_ 3, 
the coefficients of lift, wave drag, form drag, total drag and 
pitching moment are printed. The Mach number diagram is also 
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printed. For ITYP >_ 3 Idle printout consists of the displaced 
airfoil geometry and the flow and boundary layer characteristics at 
each of the M+l points. The description of each column of output 
appears in the Output Glossary. If ITYP ^4 a Calcomp plot of 
the pressure distribution from computation, comparison test data 
if available, the airfoil and the sonic line are plotted. A plot 
of the final displacement thickness for the upper and lower surfaces 
appears on the last page. If ITYP < 4 no Calcomp plots are made. 
If ITYP = 5 the sonic line is not plotted. If ITYP = 1 there are 
no Calcomp plots, Mach number diagram or final printout. 

An example of a set of control cards for the CDC 6600 Scope 
3.2 operating system and data cards for the boundary layer program 
is given below. In order to use Program H control cards are needed 
vrfiich retrieve the program from the program library, store the air- 
foil geometry on Tape 3 and the test data, if available, on Tape 4. 

For the CIMS CDC 6600 the control cards are: 


ATTACH (T, AIRFOIL) 
REWIND (T, TAPE 3) 

COP YBF ( T , TAPE 3 ) 

ATTACH (TAPE 4 ,TESTDATA) 

ATTACH (H, PROGRAM) 

H. 


AIRFOIL contains airfoil geometry 

Tape 3 is input to Program H 
Tape 4 is input for H and TESTDATA is a 
file which contains experimental data 
File PROGRAM contains compiled Program H 
Execution of Program H 


See Table 1 for the format of data for Tape 3. See Table 2 
for the format of data for Tape 4. 

We assume that Tape 3 contains the model coordinates for one 
of our airfoils designed at Mach number EM = 0.75, CL = 0.667 and 
T/C = 0.151 (Airfoil 75-07-15) which was tested at the National 
Aeronautical Establishment, Ottawa, Canada. Since only x and y 
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were measured. Tape 3 contains the coordinates in FSYM = 4. mode. 
Tape 4 is assumed to contain the experimental results of a test 
made at Mach number equal to 0.762, angle of attack equal to 0.82 
degrees with coefficient of lift equal to 0.362, and Reynolds 
number equal to 20.0 x 10®. 

The first data card which may be used as input to the program 
is : 

[ $P NS=1 , FSYM=4 . , EM=0 .762, CL=0.362, IS=2, PCH=0.07, 

XSEP=0 . 93 , RN=20 . 0E06 , BCP=.4, SEPM=.004, XP=1. , RBCP=0.1, 
RDEL=0 ,125,NFC=80$ ] 

However, for this case the input data can be simplified consider- 
ably, since most of the parameters are equal to their default 
values set by the program. Thus, the first input card we use is: 

[ $P FSYM=4 . , EM=0 .762, CL=0.362, XP=1.$ ] 

After reading this card the program begins the mapping. The air- 
foil coordinates are redistributed and smoothed 2 (IS) times. The 
airfoil is mapped using 2*NFC intervals on the circle. The x,y 
coordinates are obtained at 161 (M+l) points equally spaced in the 
circle. From these coordinates 108 (NT) are saved: every other 
point in the first third of the original 161, every point in the 
second third (around the nose) and every other point in the last 
third, which includes the points near the upper surface trailing 
edge. This was done to maintain the resolution at the nose and 
to improve the convergence, since points at the trailing edge 
spaced too closely can lead to computational difficulties. The 
108 points define the inner airfoil to which we add the boundary 
layer correction and obtain a new outer airfoil at each boundary 
layer correction cycle. 

The second data card supplied to the program is: 

[ $P NS = - 1, ITYP = 1$ ]" 



180 


The machine response to this card is a change in mesh size to a 
cruder mesh. The mesh size is then M*N = 80*15 for the flow calcu- 
lation. The original airfoil remains unchanged, defined at 108 
points . 

The third data card is: 

[ $P NS=400 , NS 1=20 , LSEP=75, XMON=.95, IS=2 , ITYP=4, KP=4$ ] 

This card initiates the computation of the flow around the airfoil. 
400 (NS) cycles of the flow on the crude grid size will be computed 
before termination. After each 20 (NS1) cycles of the flow a 
boundary layer correction will be made. The pressure distribution 
and Mach numbers resulting from flow cycle NS1 are computed. Since 
LSEP is not equal to its default (81 for the crude mesh, 161 for 
the fine mesh) the pressure distribution is modified on the upper 
surface from LSEP+1 to the trailing edge. Since the pressure BCP at 
the trailing edge was not read in on a data card, the default 

value BCP = 0.4 is used initially. At all boundary layer cycles 
after the first, BCP is iterated and underrelaxed using the mono- 
tonicity condition on the pressure distribution beyond separation. 
The search for monotonic behavior starts at x = 0.95 (XMON) . The 
Nash-Macdonald equation is integrated at 81 points (NPTS) equally 
spaced in the circle plane. After the displacement thickess & has 
been computed from the equation it is subjected to the requirement 
that on the upper surface it be monotonically increasing and that 
on the lower surface for x <_ 0 . 6 it be monotonically increasing 
and for larger x once it starts to decrease it should not increase 
again. Then 6 is smoothed, and the number of smoothings is given 
by IS. This is the same parameter name used for the smoothings of 
the original airfoil, but that smoothing is not done for each new 
outer airfoil. The amount of & to be added to the original airfoil 
is underrelaxed to achieve convergence. RDEL is the relaxation 
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factor. After a spline fit at the NPTS points at which the equa- 
tion was solved and an interpolation at the NT points of the inner 
airfoil, 6 is added to the inner airfoil. The resulting airfoil 
defined at 108 (NT) points is then mapped onto the circle. The 
mapping is done at 161 (2 NFC + 1) points. The new mapped coordi- 
nates are obtained at 81 (M+l) points. The program then returns to 
the flow cycles. When NS = 400 the crude mesh calculation is 
complete. ITYP = 4 gives the Mach number chart, a printout of the 
relevant variables, the Calcomp plot of the pressure distribution, 
airfoil and sonic line, and the plot of the last upper and lower 6. 
Since some default values are used. Card 3 can be shortened to': 

[ $P NS= 400 , LSEP=75, ITYP=4, KP=4$ ] 

The fourth data card is: 

[ $P NS= 1 , ITYP= -1$ ] 

The mesh is restored to the finer grid, M*N = 160x30. The inner air 
foil is still defined at 108 points. However, the mapping is 
redefined on the fine grid and the new airfoil is obtained at 161 
points on the circle. The value of LSEP is adjusted to the corres 
ponding index for the fine mesh. All other required variables are 
interpolated . 

The fifth data card is: 

( $P NS=400 , ITYP=1$ ] 

400 cycles of flow are done on the fine mesh with a boundary layer 
correction computed every NS1 cycles. The Nash-Macdonald equation 
is still integrated using 81 (NPTS) points. 

The sixth data card is: 

[ $P ITYP=0 $ ] 


The program terminates with printout of final results and Calcomp 
plots. On the C DC 6600 any namelist error is treated as an exit 
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card like the sixth data card. 

The time required to compute 400 cycles of the flow and obtain 
a new boundary layer correction each 20 cycles is approximately 110 
seconds on the crude grid. Approximately 2.3 seconds are required 
to obtain each new outer airfoil and map it onto the circle. In 
total about 65 seconds are spent on the flow and 45 seconds on the 
outer airfoil. 307 seconds are required for the 400 cycles calcu- 
lation at a fine mesh size. 231 seconds are needed for the flow 
and 76 secdnds for mapping the 19 outer airfoils. 
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Glossaries and Tables for Program H 

Glossary of Input Parameters 


Real. Angle of attack in degrees relative to 
angle 0° at design. Default 0°. See CL. 

Real. Starting value of the base pressure 
which is used when the pressure distribution 
is extrapolated linearly on the upper surface. 
Default 0.4. 

Real. Damping coefficient for rotated differ- 
ence scheme used to solve the flow equations. 
Default 0. BETA > 0 may help the convergence 
for Mach numbers near 1.0. 

Real. Coefficient of lift. The default is 
based on the ALP default since the program 
permits either ALP or CL to be prescribed. 

CL defaults to the design value for FSYM < 3. 

Real. The free stream Mach number. It must 
be less than 1. Default 0.75 or design Mach 
number if FSYM < 3. 

Real. Indicates format of original airfoil 
coordinates on Tape 3. See Table 1. 

Default 1. 

Real. Gas constant y. Default 1.4. 

Integer. Number of smoothings of original 
airfoil coordinates. Also the number of 
smoothings of the displacement thickness. 
Default 2. 

Integer. Used along with NS to indicate mode 
of operation. ITYP = 0 causes program to 
terminate. See Table 3. Default 1. 


Integer. Width of output line control. 
Controls the number of characters on a line 
of output as well as the file to which out- 
put is written. In addition, if IZ = 120 the 
Fourier coefficients of the mapping are 
printed. Default 125. 

Integer. Print parameter. The output from 
each KPth flow cycle is printed. Default 1. 


LL Integer. Index of location on airfoil where 

the sweep through the upper and lower 
surfaces begins for the finite difference 
scheme. Default M/2+1. Smaller values of 
LL are used for high angles of attack. 

LSEP Integer. Index of x which gives the location 

at which the linear extrapolation for the 



184 


M 


N 


NFC 

NPTS 


NRN 


NS 


NS1 


PCH 


RBCP 


pressure distribution is begun on the upper 
surface. It should be placed at the point 
of separation, if used. The pressure distri- 
bution is modified from x at LSEP+1 to the 
trailing edge. If LSEP > M then the 
pressure distribution is not altered. 

Default M+l. 

Integer. The number of mesh intervals in 
the angular direction in the circle plane at 
which the flow equations are solved. 

Default 160. 

Integer. The number of mesh intervals in 
the radial direction in the circle plane . 
Default 30. 

Integer. The number of Fourier coefficients 
used for the mapping. Default 80. 

Integer. The number of points at which the 
Nash-Macdonald boundary layer equation is 
solved. Default 81. 

Integer. Run. number. Default 1. If FSYM<3., 
NRN has the design value. If NRN > 1000, the 
Calcomp plots are done on blank paper on the 
CIMS CDC 6600. 

Integer. If positive and ITYP > 0 it is the 
total number of flow cycles to be computed 
before the next input card. Otherwise it is 
an indicator of the mode of operation. See 
Table 3. Default 1. 

Integer. Number of flow cycles computed 
between boundary layer corrections. 

Default 20 . 

Real. Chord location at which the turbulent 
boundary layer calculation is begun. Transi- 
tion is assumed to occur at this point. The 
program uses the x coordinate of the airfoil 
closest to PCH for transition. Default 0.07 
unless in F mode, where the default is the 
peak pressure. 

Real. Relaxation parameter for iterating 
BCP . Default 0.1. u 


RCL Real. Relaxation parameter for the circula- 

tion or the angle of attack. Default 1. 

RDEL Real. Relaxation parameter for the boundary 

layer displacement thickness. Default 0.125. 

RFLO Real. Relaxation parameter for the velocity 

potential in the flow calculation. 

Default 1.4. 
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RN 

Real. Reynolds number. If RN is set to zero 
no boundary layer correction is made. 


Default 20 . 0E6 . 

SEPM 

Real. Bound set on the separation parameter 
SEP. Default .004. 

ST 

Real. Convergence tolerance on the maximum 
velocity potential correction and the maximum 
circulation correction. 

XMON 

Real. x location where search for monotoni- 
city of the pressure distribution is begun 
when modifying BCP for the pressure extrapola 
tion. Default 0.95. 

XP 

Real. Indicator for test data. If XP > 0 
then test data appear on Tape 4 and the 
points will appear on the Calcomp pressure 
distribution plots. If the program is used 
as F and XP < 0 then a plot of the airfoil is 
produced before and after the displacement 


thickness is subtracted. This plot is also 
obtained if the number of points defining the 
airfoil is greater than 140. If XP ^ 0 and 
the program is in the F mode the redistribu- 
ted coordinates are written on Tape 3 in 
FSYM = 1. format; if XP = 0 the displaced 
coordinates are written on Tape 3 in FSYM = 2 
format . 


XSEP Real. | XSEP | is the x location beyond which 

* SEP assumes its calculated value even if 

SEP > SEPM. For all x < | XSEP | the bound 
SEPM is imposed on the upper surface. If 
XSEP < 0 the upper and lower surfaces of the 
airfoil are both treated as upper surfaces. 
Default 0.93. 


Glossary of Output Parameters 



Printout of Oriqinal Airfoil Data 


X,Y 

Original airfoil coordinates smoothed 
times and redistributed if IS > 0 and 
FSYM = 2. or 4. 

IS 

ARC LENGTH 

Arc length of airfoil defined by X,Y. 


ANG 

Surface angles of airfoil. 


KAPPA 

Curvature of airfoil. 


KP 

Second derivative of ANG with respect 
length . 

to arc 

KPP 

Third derivative of ANG with respect to arc 
length . 
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ERR 
DA, DB 

A (NFC), B (NFC) 
EPSIL 

NCY 

DPHI 

DCL 

DDEL 

DBCP 

IK, JK 

NSP 

ALP 

CL 

AN GO 
CPI 

BCP 

SL 


Printout from Mapping of Original Airfoil 

Maximum correction in arc length for each 
iteration of the mapping. Convergence if 
ERR < 0. 4*1CT 7 . 

Correction needed at each iteration to 
ensure closure. 

NFC Fourier coefficients. Printed out 
if IZ = 120. 

Trailing edge angle divided by tt. 

Printout after Each Cycle of Flow 

The running tally of flow cycles computed for 
a given grid size and Mach number. 

The maximum change in the velocity potential 
array at two consecutive flow cycles. 

Change in lift necessary to satisfy the Kutta 
condition . 

Maximum increment in displacement thickness 
during each boundary layer calculation. 

Maximum residual in the base pressure BCP 
iteration. 

The location of the maximum velocity 
potential correction. 1 < IK <_ M+l, 

1 < J K <_ N . 

The number of supersonic points in the flow 
calculation. 

Angle of attack, which is printed if CL is 
held fixed. 


Coefficient of lift, which is printed if ALP 
is held fixed. 


Angle of zero lift. Computed after each 
mapping. 

CP at LSEP . This is the first value used for 
the linear extrapolation if the pressure dis- 
tribution is modified on the upper surface 
after separation. The pressure distribution 
is modified from LSEP+1 to the trailing edge. 


Base pressure. The value to which the pres- 
sure is extrapolated at the trailing edge. 

Slope of the line through CPI and BCP. 
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Final Printout 


xs 

x coordinate of the last mapped outer airfoil 
at M+l points. 

YS 

y coordinate of the last mapped outer airfoil 
at M+l points. 

ANG 

Surface angles of the last mapped outer 
airfoil. 

KAPPA 

Local curvature of the last mapped airfoil. 

MACH 

Local Mach number resulting from the last 
flow cycle. 

CP 

Pressure distribution corresponding to the 
Mach number. 

CPI 

Pressure distribution used in the last 
boundary layer correction. 

THETA 

The momentum thickness obtained by solving 
the Nash-Macdonald equation in the last 
boundary layer correction cycle. 

DELS 

Displacement thickness obtained from the last 
boundary layer correction. 

SEP 

Quantity used as criterion for determining 
separation. If SEP > SEPM the boundary layer 
separates. 

H 

Shape factor. 

DD 

The last displacement thickness increment 
added to the inner airfoil. 

CS 

The location computed by the program at which 
SEP >_ SEPM. 

LM 

The point at which the program starts looking 
for monotonicity in the pressure distribution 

LP 

Gives the location of XSEP. 

LS 

Indicates the location of LSEP. 

CDW 

Wave drag coefficient. 

CDF 

Form drag coefficient. 

CD 

Total drag CD = CD W + CDF. 

CM. 

Moment coefficient. 
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Parameters for Table 1 

EPSIL Real. Trailing edge angle divied by tt. 

FNU Real. Number of points on upper surface 

defining airfoil. 

Real. Number of points on lower surface 
defining airfoil. 


FNL 
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COLS. 

CARDS^\ 

1-10 

11 - 20 

21 - 30 

J 

31 - 40 

1 

Title in Hollerith 

(Columns 2-17 will be printed on plot) 

2 

FNU 

FNL 

EPSIL 


3 

Blank 

4 

Coordinates at nose 

* 

Points on upper surface 

FNU + 3 

Coordinates at trailing edge 

FNU + 4 

Blank 

FNU + 5 

Coordinates at nose 

l 

Points on lower surface 

FNU+FNL+4 

Coordinates at trailing edge 


Deck Structure 


V. COLS. 
FSYM \ 

1 - 10 

11 - 20 

21 - 30 

31 - 40 

3.0 

U 

V 

X 

y 

4.0 



X 

Y 

5.0 

X 

Y 

0° 



Data Structure 


Table 1. Tape 3 Card Input for Program H 
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NP 

EMX 

ALPX 

CLX 

CDX 

SNX 

XL 

CPX 


^^\COLS . 
CARDS\^ 


11-13 


1 


NP 


v^COLS . 
CARDS^^^ 

KB 

H 

13 -18 

19 - 25 

26 - 34 

2 

EMX 

ALPX 

CLX 

CDX 

SNX 

'"'"'\COLS . 
CARDS^-\_ 


11 - 20 


3 

XL 

CPX 


• 

; 

} ■ 


NP + 2 

XL 

CPX 



Table 2. Deck and Data Structure for Tape 4. 


Integer. Number of comparison points. 

Real. Free stream Mach number of comparison 
airfoil. 

Real. Angle of attack of comparison airfoil. 

Real. Coefficient of lift for the comparison 
data. 

Real. Coefficient of drag for the comparison 
data. 

Real. Selects plotting symbol for comparison 
data. If positive, triangles (A) are used as 
for test data. If negative, plus signs (+) 
are used as for design data. 

Real, x coordinates of comparison data 
scaled from 0. to 1. 

Real. Coefficient of pressure at corres- 
ponding XL values. 
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1 

ITYP < 0 

ITYP=0 

ITYP > 0 


■ 




NS < 0 

1 

RETURN TO 
CONTROL MODE 

TERMINATE 

PROGRAM 

CRUDER 

GRID 

NS = 0 

1 

STORE 
ON TAPE 

TERMINATE 

PROGRAM 

RETRIEVE FROM 
TAPE 

NS > 0 

1 

FINER 

GRID 

TERMINATE 

PROGRAM 

FLOW 

COMPUTATION 


Table 3. Control of Program H. 
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3 • Operation of the Three Dimensional Analysis Program J 

The three dimensional program was written specifically to 
treat the flow past a yawed wing as proposed by R. T. Jones. It 
will calculate the pressure distribution and force coefficients 
throughout the anticipated range of flight conditions up to Mach 
numbers of about 1.3 and yaw angles around 60°. At large Mach 
numbers and yaw angles, however, the artificial viscosity in the 
difference scheme causes the shock waves to become smeared. 

The configuration is illustrated in Figure 1. To simplify 
the coordinate transformations the leading edge is assumed to be 
straight. The sheared parabolic coordinates described in 
Chapter I, Section 4, are then introduced in planes normal to the 
leading edge. The input parameters XSING and YSING determine 
the location of the singular line about which the square root 
transformation is made (see the Glossary, Section 4) . It is 
important to choose these so that the unfolded profile does not 
have any sharp bumps. The mapped coordinates are printed so that 
this can be checked. The section can be varied in an arbitrary 
manner, and the planform can be tapered as desired by varying 
the location of the trailing edge. The trailing edge defined by 
the input is actually replaced by a piecewise straight line through 
the nearest mesh points in the computational lattice. 

The geometry is defined by giving the cross section at succes- 
sive span stations from the leading to the trailing tip of the 
yawed wing. Each section is defined by scaling and rotating a 
prescribed profile. The profile is given by a table of xvy coordi- 
nates. If the wing sections are all similar only the profile for 
the first span station is needed as input. The coordinates for the 
other stations are obtained by scaling the original profile to the 
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proper chord, and rotating it to obtain the appropriate twist. If, 
on the other hand, the sections are not similar, the program permits 
profiles to be read in at each span station. The wing section 
between stations is generated by interpolation. 

Another version of the program exists which allows for a 
curved leading edge. The parabolic coordinates are then introduced 
in planes parallel to the free stream, which leads to a skewed 
coordinate system. The resulting extra terms in the equations 
cause the computer time to be increased by about 30%. This version 
of the program has the advantage that it could be adapted to treat 
a swept back wing on a wall by the inclusion of a symmetry plane 
at the center line. 

The difference scheme and iterative procedure conform closely 
to the description in Chapter I, Section 3. They are implemented 
as a line relaxation procedure in the x,y coordinate planes. These 
are updated in succession starting from the upstream side when the 
wing' is yawed. In order to sweep in the general direction of the 
flow each x,y plane is divided into three strips. Then horizontal 
lines are relaxed in the middle strip, marching towards the body, 
and vertical lines are relaxed in each outer strip, marching out- 
wards. The width of the center strip is determined by the para- 
meter STRIP (see the Glossary, Section 4) . Fastest convergence is 
usually obtained by using horizontal relaxation over the entire 
plane . 

Normally calculations are first performed on a coarse mesh, 
and then on a fine mesh with twice as many intervals in each coordi- 
nate direction. The coarse mesh result is interpolated to provide 
the starting guess for the fine mesh. This procedure greatly 
reduces the computer time required for a fine mesh solution. Using 
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the CDC 6600 it takes one second to sweep through about 4500 mesh 
points. The time for one iteration cycle on a mesh with 72x12*16 
points is three seconds. A run usually consists of 200 cycles on 
such a coarse mesh, followed by 100 cycles on a fine mesh with 
144*24*32 points. The total running time is about one hour. 

The main input to the program is on Tape 5 and output is on 
Tape 6. Tapes 1, 2 and 3 are disc files used for internal storage 
in order to reduce the requirements for high speed memory. Tape 4 
is a permanent storage device such as a magnetic tape on which 
intermediate results can be stored. The computation can be 
restarted and continued for more iterations using the data on 
Tape 4 as the new starting values. The disc instructions are 
specialized to the CDC 6600 using the FTN compiler. A version of 
the code which does not use disc storage is also available. This 
version should be readily adaptable to other computers, but 
requires a large amount of high speed memory. 

The input data deck for a run is arranged to include title 
cards listing the required data items. The complete set of title 
cards provides a list of all the data which must be supplied, and 
can be used as a guide in setting up the data deck. Each title 
card is followed by. one or more cards supplying the numerical 
values for the parameters listed. The input parameters are given 
in the Glossary, Section 4, in the order of their appearance on the 
data cards. All data items are read in as floating point numbers 
in fields of 10 columns, and values representing integer parameters 
are converted inside the program. The data deck for Airfoil 
79-03-12 is shown in Table 1. 

The output consists. of printout and Calcomp plots. For conven- 
ience the section profile is printed at the first span station so 
that the input profile can be checked. If all the sections are 
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similar only the chord and twist angle are printed at the remaining 
stations. If the sections are different the corresponding input 
profiles will be printed. The program next prints the mapped 
coordinates of the section at the wing center line, generated at the 
mesh points of the computational lattice. Parameters such as mesh 
size, Mach number, angle of yaw and angle of attack are also print- 
ed so that the case can easily be identified. Then for each itera- 
tion the program prints the iteration number, the maximum correction 
to the velocity potential and the maximum residual in satisfying 
the flow equation together with the coordinates of the points where 
these occur in the computational lattice, the circulation at the 
center section, the relaxation factors Rel Fct 1, Rel Fct 2 and 
Rel Fct 3 (see Glossary, Section 4) , and the number of supersonic 
points. 

After a maximum number of cycles has been completed or a 
convergence criterion has been satisfied the section lift, drag and 
moment coefficients are printed for each span station, starting 
with the leading tip; if desired, the section pressure distributions 
are also plotted. Finally the characteristics of the complete 
wing are printed. These include the coefficients of lift, form 
drag, friction drag and total drag, the ratios of lift to form drag 
and lift to total drag, and the pitching, rolling and yawing 
moments. In addition, charts are printed showing the Mach numbers 
at points in planes containing the upper and lower surfaces of the 
wing. A Calcomp plot is generated to show a view of the complete 
wing and the pressure distributions over the upper and lower sur- 
faces separately, with the leading tip at the bottom of the picture. 
If the mesh is to be refined the program then repeats the same 
sequence of calculations and output on the new mesh. 
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4 . Glossary and Table for Program J 

Glossary of Input Parameters 

The parameters are listed in the order of their occurrence on 
the data title cards (see Table 1) . 


TITLE CARD 1 
NX 


NY 

NZ 

FPLOT 


FCONT 


TITLE CARD 2 
N RE LAX 

RELAX TOL 


The number of mesh cells in the direction of 
the chord used at the start of the calcula- 
tion . NX = 0 causes termination of the 
program. 

The number of mesh cells in the direction 
normal to the chord and span. 

The number of mesh cells in the span 
direction . 

Controls the generation of Calcomp plots. 
FPLOT = 0. for no plots. 

FPLOT = 1. for a three dimensional plot of 
the surface pressure distribution. 

FPLOT = 2. for a three dimensional plot and 
individual plots at each span station. 

Indicator which tells the manner of starting 
.the program. 

FCONT = 0. indicates the calculation begins 
at iteration zero. 

FCONT = 1. indicates the computation is to be 
continued from a previous calculation. In 
this case the values of the velocity poten- 
tial and the circulation are read from a 
magnetic tape where they were previously 
stored (Tape 4) . It is still necessary to 
provide the complete data deck to redefine 
the geometry. The count of the iteration 
cycles is continued from the final count of 
the previous calculation so that the number 
of cycles N RE LAX consists of the count of the 
previous calculation plus the number of 
iterations to be continued. 


The maximum number of iteration cycles which 
will be computed. 

The desired accuracy. If the maximum correc- 
tion is less than RELAX TOL the calculation 
terminates or proceeds to a finer mesh, 
otherwise the number of cycles set by N RE LAX 
are completed. 

The subsonic relaxation factor for the veloci 
ty potential. It is between 1. and 2. and 
should be increased towards 2. as the mesh 


REL FCT 1 
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REL FCT 2 

REL FCT 3 
BETA 

STRIP 


FHALF 


TITLE CARD 3 
FMACH 
YAW 
ALPHA 


CDO 


is refined. 

The supersonic relaxation factor for the 
velocity potential. It is not greater than 1. 
and is normally set to 1. 

The relaxation factor for the circulation. 

It is usually set to 1., but can be increased. 

The damping parameter controlling the amount 
of added 4> st (see Chapter I, Section 3) . 

It is normally set between 0. and 0.25. 

Determines the split between horizontal and 
vertical line relaxation and is the propor- 
tion of the total mesh in which horizontal 
line relaxation is used. Fastest convergence 
is usually obtained by setting STRIP = 1., 
where horizontal line relaxation is used for 
the entire mesh. If convergence difficulties 
are encountered STRIP may be reduced to some 
fraction between 0. and 1. 

Determines whether the mesh will be refined. 

FHALF = 0.: The computation terminates after 
completing the prescribed number of iteration 
cycles or after convergence for the input mesh 
size. 

FHALF ^ 0.: The mesh spacing will be halved 
after N RE LAX cycles have been run on the crude 
mesh size. An additional data card must be 
provided for the refined mesh giving the 
numerical values requested by Title Card 2. 

If FHALF < 0 the interpolated potential will 
be smoothed | FHALF | times . 

(Aerodynamic Parameters) 

The free stream Mach number. 

The yaw angle of the wing in degrees. 

The angle of attack in degrees. When the wing 
is yawed, ALPHA is measured in the plane 
normal to the leading edge, not in the free 
stream direction. 

The estimated parasite drag due to skin fric- 
tion and separation. It is added to the 
pressure drag (sum of vortex drag plus wave 
drag) calculated by the program to give the 
total drag. 


TITLE CARD 4 

NC The number of span stations at which the wing 

section is defined on subsequent data cards 
from leading tip (smallest value of z) to 
trailing tip. If NC < 2 it is assumed that 
the wing geometry is the same as for the last 
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case calculated and the computation for new 
values of FMACH, YAW, ALPHA and CDO begins 
without any further data items being read. 

TITLE CARd 5 (The Geometry at the First Span Station) 

z Span location of the section. 

CHORD The local chord value by which the profile 

coordinates are scaled. 


THICK 

ALPHA 


NEWSEC 


TITLE CAr D 6 
ISYM 


NU 

NL 

TITLE CARD 7 
TE ANGLE 


Modifies, the section thickness. The Y 
coordinates are multiplied by THICK. 

The angle through which the section is rotated 
to introduce twist. This angle, is measured 
normal to the leading edge, not in the direc- 
tion of the free stream. 

Indicates whether or not the geometry for a 
new profile is supplied. 

NEWSEC = 0. : The section is obtained by scal- 
ing the profile used at the previous span 
section according to the parameters CHORD, 
THICK, ALPHA. No further cards are read for 
this span station, and the next card should be 
the title card for the next span station, 
if any. 

NEWSEC = 1. : The coordinates for a new profile 
are read from the data cards which follow. 

(Profile Geometry Supplied if NEWSEC = 1.) 

Indicates the type of profile. 

ISYM = 0. denotes a cambered profile. 
Coordinates are supplied for upper and lower 
surfaces, each ordered from nose to tail with 
the leading edge included in both surfaces. 
ISYM = 1. denotes a symmetric profile. A 
table of coordinates is read for the upper 
surface only. 

The number of upper surface coordinates. 

The number of lower surface coordinates. 

For ISYM = 1-, NL = NU even though no lower 
surface coordinates are given. 

(Additional Profile Geometry Supplied 
if NEWSEC =1.) 

The included angle at the trailing edge in 
degrees . The profile may be open, in which 
case it is the difference in angle between 
the upper and lower surfaces. 

The slope of the mean camber line at the 
trailing edge. This is used to continue the 
coordinate surface, assumed to contain the 


TE SLOPE 
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XSING, YSING 


TITLE CARD 8 
X,Y 

TITLE CARD 9 
X,Y 


TITLE CARDS 10 


vortex sheet, smoothly off the trailing edge. 
For heavily aft loaded airfoils, the lift is 
sensitive to the value of this parameter, 
which should be adjusted by comparing two 
dimensional calculations using parabolic 
coordinates with two dimensional calculations 
in the circle plane. 

The coordinates of the singular point inside 
the nose about which the square root transfor- 
mation is applied to generate parabolic coordi- 
nates. This point should be located as 
symmetrically as possible between the upper 
and lower surfaces at a distance from the nose 
roughly proportional to the leading edge 
radius. It can be seen whether the location 
has been correctly chosen by inspecting the 
coordinates of the mapped profile printed in 
the output. If the mapped profile has a bump 
at the center, the singular point should be 
moved closer to the leading edge. If the 
mapped profile is not symmetric near the 
center, with a step increase in y, say, as x 
increases through 0, the singular point 
should be moved closer to the upper surface. 

The coordinates of the singular point are 
chosen relative to the profile coordinates 
supplied on the cards which follow. 

(Upper Surface Coordinates) 

The coordinates of the upper surface. These 
are read on the data cards which follow, one 
pair of coordinates per card in the first two 
fields of 10, from leading to trailing edge 
inclusive. 

(Lower Surface Coordinates, Read if ISYM = 0.) 

The coordinates of the lower surface, read 
from leading edge to trailing edge. The lead- 
ing edge point is the same as the upper 
surface leading edge point. The trailing edge 
point may be different if the profile has an 
open tail. 

11,... (Geometry at the Other Span Stations) 

. These title cards are the same as Title Card 5 
(geometry for the first span station) . The 
number of such cards depends on the number of 
input span stations NC. If the profiles are 
similar at each station except for scaling, 
thickness chord ratio and rotation to intro- 
duce twist, NEWSEC = 0. and no new profile 
coordinates are needed. 
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Cols . 

1-10 

11-20 

21-30 

31-40 

41-50 

Title Cara^. 







79-03-12 Section AR = 6.0 Twist 2 Deg 



NX 

NY 

72. 

CN 

tH 



FPLOT FCONT 


0 . 



RELAX REL REL REL 
TOL FCT 1 FCT 2 FCT 3 


BETA STRIP FHALF 


.05 



TE TE 

ANGLE SLOPE 



XSING 

YSING 

.0085 

.0164 


CO 

1 . 


NU 


(Upper Surface Coordinates Nose to Tail) 



Table 1. Data Deck for Three Dimensional Program. 
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LISTING OF the BOUNDARY LATER ANALYSIS PROGRAM H 08/06/74 


PROGRAM HlINPUT a. 66, OUTPUT = :>OO.TAPe 3 = 500. TAPER a. 400, TAPES 

ioutput * tapes = input) 

COMMON PHI(162,31)«FP(162,31),A(31)«B(31),C(31)»0<31),E(31) 

X ,RP(31>,RPP(31) ,R(31),RS(3d ,RI < 31 ) , a A (162) , SB ( 162 ) ,C0<162 > 

2 , SI <162) ,PHIR<162) ,XC<162) , YC<162) ,FM<162) ,ARCL(162) .0SUMU62) 

3 , ANGOLU< 162) ,XOLO< 162) , YOLO (162) , ARCOLD ( 162 ) , UELOLU( 162 ) 

COMMON /A/ Pl.TP,RAO.E«!.ALP,RN.PCH.XP,TC.CHD.DPHI.CL.l\CL*YR 

1 ,XA, YA.TE.OT.OR. 0£LTH,0£LR,RA.UcN,OSN*RA4.EPSIL.QCRIT,c1.C2 

2 ,CR,C5.C6.C7.3ETi3£TA.FsrM,XS£P.S£PM. TTLE(R) .M.N.MM.NN.NSP 

3 , IK, JK.IZ.ITYP, M00E,IS,NFC,NCY,NRN,Ng.I0IM,N2,N3,NR,NT,IXX 
R . NPTS.LL.I.LSEP.MR 

DIMENSION COMC < 63 ) , CLA ( 2 ) ,NaH£RR(6) 

EQUIVALENCE (COhC(l) ,PI) . <Ci_X,Ci_A(l) ) . ( ALPX.CLA(2) ) 

C LSTERR is the SUBROUTINE TO PROCESS A NAMELIST ERROR 
EXTERNAL lSTERR 
C *** NON" ANSI*** 

NAMELIST /P/ ALP,8£TA,3CP.CL,E«,FSYH,sANMA,IS,ITYP, IZ.KP.LL.LSEP 

1 M,N*NFC«NPTS,NRN«NS,NSl,PCH.RaCP»RCL,RDEL,RFLO.RN,SEPM,ST, 

2 XMON.Xp.XSEP 

OATA GAM,*! A/1 .4/ , ST/O./ , XMON/,95/ » RBCP/.10/ , RFLO/1.4/ , 

1 ROEL/,125/ , BCP/.4/ , NSl/20/ , NS/l/ , KP/1/ 

OATA NS/5/ , NAMERR/6*0/ , D1 , U2 , SL/3*0 ./ , CPI/. 4/ .XPF/l./ 

C THESE TWO CARDS TRANSMIT TO THE ! SYSTEM THE RECOVERY AOORESS 
NAMERRO) = LOCF(LSTERR) 

CALL SYSTEMC(66,NAMERR) 

MR = NR 
REWIND N* 

WRITE (N2.160) 

READ (N3.P) 

IF (CL.NE.100.) MODE = 0 
IF ( I Z. Sf . 80 ) NR = N2 
IF (NS.EQ.O) GO TO 30 

C SET UP CONSTANTS ANO DO CONFORMAL MAPPING 
CALL RESTRT 
CLX = CL 
ALPX= RAQwALP 
GO TO 140 
10 WRITE (N2.180) 

ALP = 100. 

CL = 100. 

c ****NON-ANSI**** 

READ <N5,P) 

C SELECT OUTPUT TAPE 

NR = MR 

IF (IZ.6e. 80) NR a N2 
C2 = ,5 *<gAMMA-1, ) 

C7 = GAMMA/(GAMHA-1. ) 

IF (ALP.EQ.100. ) GO TO 20 

C ALP HAS BEEN INPUTTED, KEEP IT FIXED 

NCY = 0 
MOOE = 1 
ALPX = ALP 
20 ALP a ALPX/RAD 
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IF (CL.Ca.100.) SO TO 25 
C CL HAS SEEN INPUTTED, KEEP IT FIXEO 

NCT = 0 
MOOE = 0 

YA = ,5*CL/CHD-0PHI 
00 114 L = l.M 
00 Hit J = l.NN 

n<* PhUL.J) = PhKL, J)+YA*PhIR(L1 
DPMI = • 5#CL/CHD 
CLX = CL 
25 CL = CLX 

C CHANGE PARAMETERS WHICH DEPEND ON THE MACH NUMBER 

EM s AMAXl<EM,.lE-40) 

IF (EM.NE.EMX) NCY = 0 
Cl = C2+1 ./ ( EM *EM ) 

C6 = C2*EM *£M 
C4 = 1.+C6 
C5 = l./(C6*C7) 
aCRIT = (Cl+Cl)/(GAMMA*1. ) 

BET = SQRTU.-EM *£M 1-1. 

CHECK FOR TERMINATE, RETRIEVE, OR STOR?; INSTRUCTIONS 
IK WILL BE -1 ONLY IF THERE IS A NAMElIST ERROR 
IF ( (ITYP.EQ.O) .OR. (IK.EQ.-l) ) SO TO i70 
CALL COSI 

IF (NS.NE.O) GO TO 40 
REWINO N3 

IF (ITYP.GT.O) GO TO 30 

WRITEJN3) COMC.PHI, A A , 3B, ARCOLO, ANGOLOtXOLO, YOLD , DELOLD, R , RS« RI 

i ,osum, gamma, xmon,rbcp,rflo,roel,8cp.msi,kp. st 

GO TO 140 

30 READ ( N3 ) COMC, PHI, AA,3B, ARCOLO, ANGOLD,XOLO, YOLD, 0£l0LD,R,RS,RI 
1 ,DSUM, GAMMA, XMON,RBCP,RFLO,ROEL,BCP» \|S1,KP, ST 
CALL MAP 
GO TO 140 
40 CONTINUE 

IF (NS.GT.O) GO TO 70 
NS = 0 

C GO TO CRUOE GRID IF ITYP.GT.O 

IF (ITYP.GT.O) CALL REMESM(-l) 

GO TO 140 

70 IF (ITYP.GT.O) GO TO 100 
C GO BACK TO FINER GRIO 

CALL REMESH(l) 

GO TO 140 
100 XPHII =0. 

IF ( RCL.NE.O.) XPHII = 2.OCH0/RCL 
XA = 1.-2./RFLO 
ANGO = -RAO*BB( 1 ) 

TXT ! JH CL 

IF ( MODE, ES. 0 ) TXT = 3HALP 

C NO BOUNDARY LAYER CORRECTIONS ARE MADE FOR RN.LE.O. 

IF (RN.LE.O.) NS1 = 1000000 
IXX = M+2 
80 IXX = IXX-1 

IF (XC(IXX-l) .GT.XMON) GO TO 80 
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LC = 0 

C 00 AT M OST NS CYCLES 

00 120 K = 1 * NS 

IF <M00lLC»56) • NE • 0 ) 60 TO 105 - 
WRITE (N2.210) TXT 
LC = LCM 

105 CALL SWEEP 

C KEEP TRACK OF TOTAL NUMBER OF CYCLES 

NCY = NCV*1 
ALPX = KA0*ALP 
CLX= 2.*0PHI*CH0 
YA = Y A*XPHI I 

C WRITE RESIOUALS ON N2 EVERY KP CYCLES 

IF (IMOO(K.KP) .NE.O) 60 TO 110 
LC = LC + 1 

WRITE (N2.190) NC Y. YR, YA, 01 « 02 t IK , JK . MSP, CLA ( 2-MOQE ) , ANGO . CPI » 

1 8 CP.SL 

C 00 A BOUnoRY LAYER CORRECTION EVERY Nsl CYCLES 
VlO IF (IMOO(K.NSl) .NE.O) 60 TO 125 
IF (K.EQ.NS) GO TO 140 
WRITE (N2.19Q) 

LC = LC +1 
FSYM = 6 . 

CALL G TUR 8 ( 01.02. CPI iBCP.SL. ROLL, RBCP» 

ANGO = -RAO*BBU) 

IF (MODE. £8.0) OPHI - ,5*ELX/CHQ 
C CHECK TO SEE IF WE HAVE SaTISFIEO CONVERGENCE CRITERIA 

125 IF (AHAX1(ABS(YK) »ABS( YA) ) .LT.ST) GO TO 140 
120 CONTINUE 
140 ITYP - XABS(ITYP) 

CL = C LX 

LN =; RN* 1 .E-6+.5 

XPF = XPF*AMIN0(1.IABS(H4-N4)) 

XP = XP*XPF 
CALL SECONO(TIME) 

NTPE = N4 
TXT = 3HALP 

IF (MOOE.Ea. 0) TXT = 3H CL 

150 WRITE (NTPE.200) El t TX T , CLA ( MOUE+1 ) ,LN * M . N. NS , TIRE , RFLO , RCL * ROEL . 
1 RBCP.SETA.ST.PCH.SEPM.XStP.NPTS.IS.LL.IZ 
IF (NTPE.Ea.N2) GO TO 160 
NTPE = N2 
GO TO 150 

160 IF (ITYP.GE. 2 ) CALL GTURB ( 01 , 02 , CPI . BcP *SL * ROEL , RBCP ) 

EMX = EM 
ITYP=1 
GO TO 10 
170 ITYP = 4 

IF (IK.Eq.-d WRITE (N4» 220) 

CALL GTURB<0l,02,CPl.BCP,SL,R0EL,RBCP) 

C TERMINATE Plot 

CALL PLOT ( 0 . , 0 . . 999 ) 

CALL EXIT 

180 FORMAT ( 7H READ P/) 

190 FORMAT ( 5X 1 14 . 4E12, 3 , 1 4 , 1 3 , 16 , 2F10 . 4 , 3 FII . 5 ) 
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20 0 FORMAT ( 4H0£M=F4 .3 . 3XA3, 1H=F5 . 2 , 3X3HRn=I2 , 2HE6* 3XAHM*N=, I3.1H*.I2. 

1 3X3HNS=I4*3X5HTIH£=F7.2/6H RFuO=F<* . 2 . 3X , 4HRCL=F4 . 2. 3X5HR0EL=F4 . 5 

2 ,3X5HRBCP=F3.2,3X5H8ErA=F4,2,3X3HST=.E7,l/ 5H PCH=F4,2, 

3 3X5HS£PM=F5.4,3X5HXSEP=F4.2,3X5HNPTs=I3,3X3HlS=I2»3X3HU.=I3, 

4 3X3HIZ = I3//) 

21 0 FORMAT < 1H15X3HNC Y6X4HQPHI8X3HQCL . 8X * 4hDDEL* 8X *4HD8CP.5X«2HIK» 

1 2X.2HJK.2X3HNSP, 5XA4, 5X4HANG0f 6X3HCPT . 8X3HBCP t 8X2HSL/ > 

220 FORMAT ( 21H0***NAM£EIST ERROR*** , 10X. pOHPROGRAH TO TERMINATE ) 

ENO 


SUBROUTINE LSTERR 
COMMON /A/ M(47) ,I< 
IK = -1 

return 

ENO 


SUBROUTINE restrt 

COMMON PHI <162«31) .FP< 182*31) .A(31) .8* 31) »C(31) .0(31) «£<3l > 

X * RP ( 31 ) • RPP ( 31 ) ,R(31) ,RS(31) ,KI(31 > 1 a A { 162 ) *80(162) , CO (162) 

2 iSI(162),PHIR(l&2)»XC(162)tYC(162)fFvi(lb2) iARCL(162)iOSUM(162) 

3 , ANGOLO<162) .X0L0(162) ,TOU0(162) , ARC0LD(162) ,UEL0U0(162) 

COMMON /A/ PI.TP.RaO.EM. ALP.RN tPCH.XP, TC . CHD, DPHI . CL. RCL. YR 

1 , XA, YA.TE.L/T,OR,OELTH,OELR,RAtOCN.OSN.RA4.EPSIL,QCRIT.Cl.C2 

2 .C4.C5.C6.C7.8er,3£TA.FSrM.XSEP,SEPlM. TTLE{4) .M, N . MM. NN. NSP 

3 , IK. J<« rz.ITYP.M0DE,IS.NFC,NCT,NRN,NR,IDlM,N2*N3.NA,NT*IXX 

4 , NPTS.LL.I.L3EP.M4 

C SET UP CONSTANTS 

TP = PI + PI 
RAO = 160. /PI 
ALP = ALP/RAD 

IF <<\I + 1).NE.NN.0R.(M+1).NE.MM) NCT = 0 
MM = M+l 

IF (LL.EQ.O) LL = M/2+1 
NN = N+l 

OR = -l./FLOATIN) 

OT = TP/FC0AT(M) 

OCN = COs ( OT ) 

OSN = SIN(OT) 

OELR = .5/OK 

OELTH = ,5/OT 

RA = Ot/OR 

RAN = 01 *0T 

00 10 K = 1 . N 

R(K) = l.+OR*FLOAT(K-l) 

RS(K) = (RA*R(K) )*(RA*R(K) ) 

RI(K) = - . 25*DT/R ( K I 
lO CONTINUE 
R(NN) = 0. 

SET = SQRT(1.-EM*£M> -1. 
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C 00 HAPPING 
CALL AIRFOL 

IF (MODE. EG, 1) CL = 8 . *PI*CHO*SI ( 1 > / ( i , + BET ) 

OPHI = ,5*CL/CH0 

C SELECT NT OF THE MH MAPPEO COOKDI NATEs 

HA = MM/3 

H8 = MM-2*{ (MA+l)/2) 

I F ( (NT.GT.1A0 ) .OR. (XP.LT.O. ) > JK = -1 
J=1 

00 40 L = l.MM 
OELOLO(L) = 0. 

OSUM(J) = 0. 

ARCOLO ( L ) =ARCL ( J ) 

IF(J.GE.MM) GO TO 70 
IFHJ.LT.HA ) .OR. ( J.GE.HB) ) J=U+1 
OSUM(J) = 0. 

J=J+1 

40 CONTINUE 
70 NT = L 

WRITE ( N4 i 100 ) NT 

100 PORHAT (1H0,I4,45H POINTS WILL BE USEo TO OEFINE INNER AIRFOIL ) 
CALL SPLIF(MM»ARCL,XC«PHI(1»3) .PHI (1 ,a)»PHI(1.7),3.0.,3.0.) 

CALL INTPUNT. ARCOLO. XOLQ, ARCL. XC , P H I ( 1 . 3 ) , PHI ( 1 , 5 ) , PHI ( 1 . 7 ) ) 
CALL SPEIF(H«, ARCL. TC, PHI (1,3>»PHI(1,5) , PHI (1.7) .3.0. .3.0. ) 

CALL INIPL(NT. ARCOlO, YOLO, ARCL, YC,Pw|I (1,3) ,PHI (1,5) »PHI( 1, 7) > 
CALL SPLIF(HM. ARCL. FH. PHI (1.3) .PHI (1.4) .PHI (1.7) .3.0, .3.0. > 

CALL INTPL(NT. ARCOLO, ANGOLO, ARCL.FH.PhI ( 1.3) , PHI (1.5) .PHI (1,7) ) 
DO 60 L = l.M 
DO 50 d = l.NN 

50 PHI(L.J) = K( J)*C0(L)4DPH1*PHIK(L) 

60 CONTINUE 

FSTH = FSYM-12, 

IS = 2 

Return 

eno 


SUBROUTINE COSI 

C SET THE SINES, COSINES, AND THE TERM At INFINITY 

COMMON PHI ( 162,31 ) , FP( 162 , 31 ) , A ( 31 ) , Bf 31 ) , C ( 31 ) , 0( 31 ) , E ( 31 ) 

1 ,RP(31),RPP(31),R(31),RS(3l),RI(31),aA(162).BB(l62),Co(162) 

2 ,SI (162) ,PHIR(162) «XC(162> ,YC(162) ,Fv|(162) »ARCL(162) ,DSUM(162) 

3 , ANGOLO < 162) ,X0L0( 162). YOLO (162) .ARCoLD (162) ,DELOLO( 162) 

COMMON /A/ PI.TP.RAO.EH.ALP.RN.PCH.XP, TC.CHD.OPHI.CL.KCL.YR 

1 ,XA, YA,TE,0T,UR,0£LTH,0ELR,RA.DCN,0SN,RA4,£PSlL.BCNir,Cl,C2 

2 ,CR,C5,C6.C7,3ET,3£TA»FSyM,xSEP,SEPM,TTLE(4)«M,N,MM,NN,NSP 

3 , IK, JK,IZ,ITYP,MOOE.IS.NFC,NCY,nRn»NG,IOIM«N2,N3.N‘»,nT,IXX 
A , NPTS.LL. I .LSEP.H4 

TPI = l./TP 
ANS = ALP+BB ( 1 ) 

SN s. SIN(ANG) 

CN = SORT (l.-SN*SN) 

DO 10 L = l.M 
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CO ( L ) = CN 
SI(L) = SN 

PHIR(L) =(ANG+ATAN((BET*SN*CN>/(1,+S£t*SN*SN) ) )*TPI 
CN = CN*OCN-SN*OSN 
SIM = CO<L)*OSN+SN*OCN 
ANG = ANS+OT 
10 CONTINUE 
CO(MM) = CN 
CO ( MH+1 ) = CO ( 2 ) 

SI(MM) = SN 
SHMM + l) s. SI ( 2 ) 

RETURN 

ENO 


subroutine sweep 

C SWEEP THROUGH the grid one time 

COMMON PHI (162* 31) ,FP< 162* SI) *A<31) ,B<31> ,C<31> .0(31) »E<31) 

1 ,RP(3i) ,RPP(31),R(31),RSI3l),RI(31),aA(162) ,B8( 162) ,C0( 162) 

2 t SI(162),PHIR<162)»XC<162)*YC(162)*Fv|(162) » ARCL < 162 ) « DSUIM( 162) 

3 , ANGOLO(162) , XOLO ( 162 ) , YOLO ( 162 ) , ARCoLD ( 162 ) , OELOlU ( 162 ) 

COMMON /A/ Pl,TP.RAO«£M,ALP,RN*PCH.XP.TC.CHDtDPHl,LL.RCL«YR 

1 ,XA, YA.TE«0T,0R,0£LTH,0£LR,Ra»UCN,USN»KA4.EPSIL,9CRIT,C1,C2 

2 ,C4,C5.C6»C7«BET,3tTA,FSYM,XSt.P,SEPM.TTLE(4) ,n.N.nn,NN,NSP 

3 ,IK,JK,I2.ITYP.M03E,IS,NFC.Ncr,NRiM,NR,I0IM.N2.N3,N4.NT,IXX 

4 , NPTSiLL.I,LSEP,M4 
YR = 0. 

NSP = 0 

DO 10 U s 1,NN 
PHI ( IMM « J ) = PHI ( 1 * U ) +OPHI 
PHI ( MM+1 * J ) s PHI ( 2 » U ) ♦ OPHI 
E(U) = 0. 

10 RPP(J) = 0. 

C SWEEP THROUGH THE GRID FROM NOSE TO T a IL ON UPPER SURFACE 

TE = -2. 

00 30 I = LL.MM 
CALL MURMAN 

DO 30 U = 1 • N 

30 PHI<I-1*J) = PHKI-itU)-RP(J) 

C UPDATE PHI AT THE TAIL FROM UPPER SURFACE 

DO 50 J : 1 « N 
PHI ( HM»U ) = PHI <MM» J)-E{U) 

E(U) = 0. 

RPP(J) = 0. 

50 PHI ( 1 i U ) = PHl<MH,U)-OPHI 

C SWEEP THROUGH THE GRIO FROM NOSE TO T ft IL ON LOWER SURFACE 
TE = 2, 

1 = LL 
80 I = 1-1 

CALL MURHAN 
DO 50 J : l'N 

60 PHI ( 1 + 1 « U ) = PHKH-li J)-RP< J) 

IF (I.GT.2) GO TO BO 
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00 70 J = 1 , N 

70 PHK2.J) = PHI(2,J)-£(J) 

C flOJUST CIRCULATION to satisfy THE KUTrA condition 
IF ( RCL .Ed.O.) 30 TO 90 

TA = RCL*< ‘PHI<M,1)-(PHI<2*1K0PHI) )*r>£.LTH + Sl(l> > 

IF (MOJt.ca.l) GO TO 90 

ALP = ALP-.b*YA 

CALL COSI 

GO TO 9b 

90 YA = TP»YA/(1.+BET) 

OPHI = UPHl+YA 
9S 00 97 L = 1«M 
9 f PHI(L.MN) = DPMI *PHIR ( L ) 

IFCMOOE.EQ.O) RETURN 
00 100 J = 1 « N 
DO 100 t = l.M 

100 PHICL.J) = PHI <L, J)+YA*PHIR(L) 

RETURN 

ENO 


SUBROUTINE WURMAN 

SET UP COEFFICIENT ARRAYS FOR THE TRIqIAGONAL SYSTEM USED FOR LINE 
RELAXATION AND COMPUTE THt UPDATED PHt ON THIS LINE 
COMMON PHI(162.31)*FP(162»31)«A(31) ,Bf 31>,C<31> ,D(31) tE(31) 

1 . RPC 31) .RPPC31) ,R(31) , RSC 31 ) , HI ( 31 ) ,aA(162) , BB ( 162 ) , LO( 162 ) 

2 «SI(l62) ,PHIR< 162) «XC< 162) »YC 1162) «F«|( 162) . ARCL ( lb2 ) . DSUM ( 162 ) 

3 ,ANG0L0(162) .X0LDC162) ,Y0LD(162) ♦ARCnLD(162),0EL0LD(162) 

COMMON /A/ Pl,TP,RAU,EM,ALP,RN»PCrt.XP.TC,CHD,DPHl.CL,KCL«YR 

1 ,XA,YA.TE.OT,OK,OELTH,OELR,RAiOCN,OSN*RA4iEPSlL.QCKir t Cl,C2 

2 ,C<f,c5»C6»C7«BET*3ETA*FSYM,XSEP,SEPM.TTLE(M.) , M, N t MM, NN , NSP 

3 ,IK.jKiIZ.ITYP,MOO£,IS.NFC.NCT,NRN,Ns,IOIMtN2.N3,NM,NT,IXX 

9 . NPTS,LL*1,LSEP,M9 
C DO THE BOUNDARY 

E(NN) = 0. 

FAC = -,b*TE 
IM = 1-1 

IF (FAC.LT.O.) IM = I + l 
KK = 0 

PHIO = PHI(I,2)-2.*0R*C0(I) 

PHlYP= PHI(I,2)-PHKI,t) 

PHI YY - PHIYP+PHIO-PHIC 1,1) 

PHI XX = PhI(I + I,1)fPHI(I-1,1)-PHI(I,1>-PHI(I,1) 

PHI XM = PHKI + l,l)-PHI(I-ltl) 

PHI XP = PHIC I+1,2)*PHI ( 1-1,2) 

c check for the tail point 

IF (I.NE.MM) GO TO 10 
C(l) = (C1+C1)*RS(1) 

A ( 1 ) = -C(1)+XA*C1-C1 

0(1) = C1*(PHIXX4-RS(1) *PHIYY+RA4*C0(I)“E(1) ) 

GO TO NO 

10 U = PHIXM*OELTH-SI(I) 

aa = u/fp c 1 , 1 ) 
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QS = U*BQ 
CS - C1”C2*8S 

8Q = aa*Qs*(PPa-i*i)-FP(i+i»m 
X = RA4*(CS+QS>*C0(I) 

C<1) = »CS+CS)*RS{1) 

Od) = cs*rs<i)*phiyy+riu)*bq4x 

CMOS = CS-3S 

PHIXT = 8ETa*ABS(U)«-a8S(CH9S) 

IF (QS.LE.9CRIT) GO TO 30 
C PLOW IS SUPERSONIC* BACKWARD DIFFERENCES 

KK = 1 

PHIXT = PHIXT-CHSS 
PHIXXM = RPP(l) 

A ( 1 ) = ” ( C ( 1 ) +PHIXT ) 

0(1) = 0<1)+CMQS*PHIXXR-PHIXT*E(1) 

GO TO 40 

C FLOW SJBCRITICAL, CENTRAL DIFFERENCES 

30 A ( 1 ) = XA*CMQS -C(1)-PHIXT 

0(1) = D(l)+CM3S*PrtIXX-PHIXT*E(l) 

C 00 NON-UOuNOaRT POINTS 

40 RPP(l) - PHIXX 
00 GO U : 2«N 

PHIXX = PHItI«-l,J)+PHI(I-l.J)-PHI(I,Ji-PHl(I,J> 

OU = PHI XP 

PHIXP = PHI(I+1.J+1)*PHI(I-1,J+1> 

PHIXT = PHlXP-PHIX1+(£<d+l)-E{U-l) )*F aC 

PHI XM = OJ 

OU = 0U*DELTH 

PHIYYM = PHI YY 

PHIYM = PHI YP 

PHI YP = PHldt J+1).PHKI, J) 

PHI YY = PHIYP-PHIY'I 
U = R( JI*OU-SI(I) 

OV = R( J) *(PHI ( I ,U*1 )-PHI ( I , J-l ) )*DELR 
V = DV*«(J»-CO(I) 

RAO = R<J)*RA*V 
BQ = l./FP(I*J) 

BQU = BQ*U 

US = 83U*u 

UV = ( d9U+BQU ) *V 

VS = 33*V*V 

QS = US+VS 

CS = Ci”C2*QS 

CMVS = CS-VS 

CMUS = Cs-us 

PHIXT = BETA*A8S(U) 

PHI YT = BETA*A3S(RAV) 

C COMPUTE CONTRIBUTION OF RIGHT-HAND SIDE FROM LOW ORDER TERMS 

0( J) =R A4* ( (CMVS*US-VS)*OV-UV*UU)+RI( J)*QS*BQ*(U*(FP( 1-1, J)- 
1 FP(I + l«J) )+RAV*(FP(I,J-l)-FP( I* J + l) ) ) 

UV =: ,5*89U*RAV 
IF (QS.LE.QCRIT) GO TO 50 
C SUPERSONIC Flow, USE BACKWARD DIFFERENCING 
KK = KKn 
CN9S = CS-QS 
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Fa = l./as 
A UU = US*FO 
8UU = r< S ( J > * AUU 
BVV = VS*FQ 
AVV r ftS(j)*BVV 
SUV s UV*FQ 

AUV = 39U*A8S(RAV) *F0*TE 

PHINN = 8VV*PHlXX-8UV*PHIXr+8UU*PKirr 

B ( d ) = CS*BUU 

PHIXT = PHlXT-CM9S*< AUU+AUU-AUV) +CS *i?VV 
PHI YT = PHlYT -CMQS*( AVV+AVV-AUV) 

C(j> = a(ji+pHirr 
PHIXXH = RPP(d) 

IF (V.LT.O) GO TO «»5 

PHIYYH = PHI(IiJ + 2)-PHHI. J+D-PHIYP 

P H I X Y 1 = PHlYP+PHUIfl. J)-PHKIfl. J+X) 

GO TO 46 

45 PHIXYM = PHI{IM,d>-PHUIH.d-l)-PHIYM 
BO = Bid) 

B(J» = C(d> 

C(J) = BQ 

46 PHISS = AUU*PHlXXM*AUV*PHJXYM+AVV*PHIrYM 
Aid) = -131 J)+C< JH-PHIXT) 

0(d) a 0( J)+CHOS*PHISS+CS*PHINN-E(d)*PHIXT 
GO TO 60 

C SUBSONIC FLOW* USE CENTRAL DIFFERENCE*? 

50 C<J) a RS(d)*CKVS 
B( J) a C( Jl+PHIYT 
PHIXT = PHIXT+CHUS 
A(J) a XA*CMUS-3< J)-C( JJ-PHIXT 

0(J) a 0( JI+c«dS*PHlXX-UV*PHIXY+C(d)*pHIYY-PHI*T*E(d) 
IF (V.LT.O.) GO TO 60 
8(d) = C(d) 

C(d) a C(J)+phIYT 
60 RPP(d) = PHIXX 
NSP = NSP+KK 

C SOLVE THE TRIOl AGONAL SYSTEM 
CALL TRIO 
RETURN 
ENO 


suaRouriNE trio 

C SOLVE N DIMENSIONAL TRIDIAGONAL SYSTEvi OF EQUATIONS 

COMMON PHI(l62»3l)»FP(162»31)»A(3i),B(31),C(31)»D(31)*E(31) 

1 . RP ( 31 ) . RPP ( 31 ) . R ( 31 ) . RS ( 3l ) . RI ( 31 ) . a A ( 162 ) .88(162) • Co ( 1 62 ) 

2 « SI (162) ,PHIR(162) « XC ( 162 ) . YC< 162 ) . Fm< 162 ) ,ARCL(162) »DSUM(162) 

3 ,ANG0LU(162) ,XOLO( 162). YOLO (162) ,ARCoLD( 162) ,0EL0L0(162) 

common /a/ pi.tp.rao.em.alp.rn.pch.xp.tc.cho.dphi.cl.kcl.yk 

1 .XA.YA.TE.OT. OR , DElTH. 0ELR,RA.DCN.L>SN.RA4, EpSlL. QCrtI T, Cl, C2 

2 .C4.C5.C6.C7, BET, 3ETA.FSYM.XStp.SEPM, TTLE ( 4 ) .M.N.MM.NN.NSP 

3 .IK,dR.I2,lTYP,MOOE.IS.NFC.NCY,NRN,Ns.lOIM,N2.N3«N4,NT.IXX 

4 , NPTS.LL.I.LSEP.M4 
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XX = 1 •/ A ( 1 ) 

RP ( 1 ) = Ell) 

Ell) s XXtOll) 

C 00 elimination 

00 10 J S 2.N 

C(J-l) = C(U-1)*XX 

XX = l./(A(J)-8(J)*C{U-l)> 

RP(J) = E(J) 

10 EIJ) = (□( J)-B( J)*£< J-l) )*XX 

C 00 back substitution 

EMX = ABS(EIN)) 

00 20 J = 2.N 
L = NN-J 

EIL) = E(L)-C(L)*E(L+1) 

20 EMX = AMAXKEMX, ABSIE(L) ) ) 

C FINO THE LOCATION OF THE MAXIMUM RESIDUAL 

IF (EMX.LE.ABS(YR) ) RETURN 
IK = I 

DO 70 J = 1 , N 

IF (ABSIE(J) ).E6.EMX) SO TO 74 
70 CONTINUE 
74 JK = J 

YR = E(JK) 

RETURN 

ENO 


SUBROUTINE REMESH ( LSI GN ) 

GO TO CRUDER GRID IF LSIGN IS -1 
GO TO FINER GRID IF LSIGN IS *1 

COMMON PHK162.31) ,FP( 162,31), AC 31), B(31) ,C( 31) .0(31) ,E(31) 

1 ,RP(31) ,RPP(31),Rt31),RS(31) ,RI(31) , AA ( 162 ) ,BB( 162) , C0( 162 ) 

2 ,SI(162) .PHIR (162). XC( 162). YC( 162). FM( 162), ARCL (162) .0SUM(162> 

3 , ANGOLO(162) .X0L0(162) .Y0L0I162) , ARC0LDH62) ,UEL0LL)(162) 

COMMON /A/ PI . TP, R AO. EM. ALP, RN. PCH, XP. TC. CHO.OPHI .CL.RCL, YR 

1 .XA.YA.TE.OT. OR , OELTH. OELR, RA » UCN,QSN,KA4,EPSIL»QCKI(,C1»C2 

2 , C4, C5.C6.C7, BET, BETA, FSYM.XSEP.SEPM.TTLEO) .M.N.MM.NN.NSP 

3 , IK, JK, XZ.ITYP,M0JE,IS.NFC.NCY»NRN,Ng,I0IM,N2,N3»N>),NT,IXX 

4 , NPTS.LL.I.LSEP.MH 
X S 2 . **LSIGN 

NG = FLOAT ( NG ) /X+. 2 

M = FLOAT(M)*X +.2 

N = FlOAT<N)*X+,2 

LL = FL0AT(LL-1)*X+1.2 

IF (LSISN.GT.O) MM = M*1 

IF (LSIGN. GT.O) NN s. N+l 

LSEP = FU0AT(LSEP-1)*X41.2 

PF = l./X 

UELR = X*OELR 

OELTH = X*0£LTH 

DR = PF*OR 

OT = PF*OT 

OCN = COS(OT) 
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OSN = SlN<OT) 

RA4 = PF*PF*RA4 
NCY = 0 

I = lsign 

HP = ,1M+l 

CALL PERMUT (R,NN.l) 

CALL PEKMUT (RS.NN.l) 

DO 5 J = 1*N 
5 RKJ) = . , 25*0T/R ( J ) 

CALL PERMUT <OSUM,1P,l) 

DO 20 L = 1 * NN 

20 CALL PEKMUT ( PHI ( 1*L) * 1P*1) 

00 30 L = 1 * MP 

30 CALL PERMUT (PHI(L,1) .MNiIOIM) 

MM = 1+1 
NN = N+l 

IF (X.EQ.,5) GO TO 80 
DO 40 L = 1 * M * 2 

DSUKL + l) = .5*<0SUN(L)+0SUM<L+2) ) 

00 40 J = 1.NN.2 

40 PHI ( L+l * J ) = .5*(PHI(Li J) +PHI (L+2 , J) > 
00 50 J = 1 * N * 2 
00 50 L = 1*1111 

50 PHKL.J+l) = •5*(PHI(L,J)+PHI (L * J+2 ) ) 
60 CALL MAP 
RETURN 
ENO 


SUBROUTINE PERMUT (AX.NX.JX) 

C REORDERS POINTS WITHIN AN ARRAY 

COMMON PHI (162 *311 *PP( 162*31) *A(311 *B ( 31) ,C(31) ,0(31) *E(31) 

1 ,RP( 31) ,RPP(31) ,R(31),RS(31) ,RI(31) ,aA(162) *BB(162) , CO (162) 

2 ,SI(162),PHIR(162) *XC( 162), YC< 162), F»i( 162) *ARCL( 162 >.DS0I1( 1621 

3 , AN 60 LO ( 1 6 2 ) « XOLD ( 162 ) ,Y0L0(1&2) , ARCoLD < 162 ) , DELOLO ( 162 ) 

COMMON /A/ pi*tp,rao*ei*alp*rn*pch,xp.tc*cho.dphi.ll,rcl.yr 

1 ,XA,YA*TE*OT,OR,OELTH,OELR,RA*DCN.DSN*RA4*EPSIL*QCKIT,C1*C2 

2 ,C4*C5*C6*C7*8ET,3ETA,FSY1,XSEP,SEP(1.TTLE(4) , n, N. MM, NN, NSP 

3 ,IK* JK,IZ*ITYP,M00E,IS*NFC*NCY*NRN*N S ,IDIM*N2»N3.N4.NT,IXX 

4 , NPTS,LL*I.LSEP,14 
DIMENSION AX ( 1 ) 

L = 1 

JY = JX+JX 

NY = 2*( (NX*l)/2)+l 

NZ = 2*(NX^2) 

IF(I.ST.O) go TO 30 
NY = JX*(NY-1)+1 
NZ = JX* ( NZ-1 ) 

00 10 J = 1 * NY , JY 
A(L) = AX(J> 

10 L = L+l 

00 20 J = JX»NZ, JY 
A(L) = AX ( J+l ) 
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20 L = L+l 
GO TO 60 

30 00 40 J = 1*NY*2 
fl(J) = AX(L) 

40 L = L+JX 

00 50 J = 2 « NZ « 2 
A ( J ) = AXIL) 

50 L - L+JX 
60 L = 1 

00 70 J = 1 « NX 
AXIL) = A ( J ) 

70 L - L+JX 
RETURN 
£N0 


SUBROUTINE GETCP(COF) 

C COMPUTE CP*CD. ANO CM BY INTEGRATION AND OUTPUT MACH DIAGRAM 

COMMON PHI(162*31)*FP( 162*31), A(31)*Bf31)»C(31), 0(31) *E(31) 

1 « RP I 31 ) , RPP ( 31 ) ,R(31) , RSI 31) ,RI(31) ,ftA(162) ,BB(162) , CO (162) 

2 < SI 1 162 ) .PHIRI162) .XCI162) .YC1162) « Full 162) , ARCLI 162 ) . DSUM ( 162 ) 

3 , ANG0L0I162) .X0L0I162) *Y0L0(162),ARCnLD(162) ,0EL0L0(162) 

COMMON /A/ PI.TP,RA0,EM.ALP,RN,PCH,XP.TC*CHD*OPHI,Cl.RCL.YR 

1 ,XA, YA.TE.OT,OR,OELTH,OELR,RA«DCN,DSN*RAN*EPSIL*QCRIT.C1,C2 

2 ,C4.C5,C6*C7*BET,9ETA,FSY*I,XSEP,SEPM.TTlE(N) , M, N . MM, NN, MSP 

3 ,IK, JK,IZ*ITYP.M00E.IS.NFC*NCY.NRN,N S ,I0IM,N2*N3.N4.NT.IXX 

4 , NPTS,LL,I,LS£P,M4 
REAL MACHN.MACH 
COMPLEX CLCO.TMP 

DIMENSION MACHN(1),CPXI1).MNU).IMACH(21) 

EQUIVALENCE (MACHNIl) , All) ) .(CPXI1 ) ,PmIR(1) ) , I MNI 1 ) * FPI 1 , 31 ) ) 

DATA IMACH/1HQ,1HR,1HS*1HT.1HU*1H1/.1H UJ ,1HX.1HY.1HZ.1H0.1H1,1H2,1H3 
1,1H4,1H5,1H6,1H7,1HB,1H9,1H+/ 

OATA TX /4HCDF=/ 

MACHIQ) = S0RT(Q/'(C1-C2»9) ) 

IMCIO) = MlNO(21*IFIX(10.*a)+l) 

CLCO = 0, 

CM = 0. 

IF I(xP.GT» 0.).OR.<IZ.LE*80)) 60 TO In 
DY = YOLD(NT)-YOLOU) 

REWINO M4 

WRITE I M4 , 120 ) EM* CL« 0 Y« TC « NRN* MM 
10 00 20 L = 1 * MM 
CP = CPX ( L • 

C COMPUTE CP*DZ 

TMP = CP*SQRT(FP(L*1))*CMPLX(C0S(FM(i_))*SIN(FM(L : ))) 

C SUM UP CL, CO, ANO CM 

CLCO = CLCO+TMP 

CM = CM+(XC(L)-.25)*REAL(TMP)-YC(L)*AtMAG(TMP) 

C WRITE PUNCH OUTPUT ON Ml IF XP=0 ANO IZ.GT.60 

IF I(XP.GT.O.).OR.IIZ.LE.80)) GO TO 2n 
Q = MACHN(L)*S0RT(Cl/(l,+C2*MACHN(L)*MACHN(L->> ) 

V S Q*SIN(FM(L) ) 
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U = Q*COS(FH(L) ) 

IF (XP.Eq.O) GO TO 15 

WRITE (fin, l3o) U,V,XC<L) . YOlO(L) ,CP 

GO TO 20 

15 WRITE <rtlf,130) U»V*XC(L)»TC(L)tCP 
20 CONTINUE 

C CORRECT CL*CO FOR ANGLE OF ATTACK 

CLCO = -(0 T*CHO|*CLCO*CMPLX(SIN< ALP) ,COS< ALP) > 

CM = OT*ChO*CM 

C WRITE CO,CL*CM ONTO N4 

COW = REal(CLCO) 

CO = COW+COF 
CL2 = AlMAG(CLCO) 

IF <M4.ES.N3) GO TO 85 
IF (COF.EQ.O.) GO TO 70 
WRITE (Nt*,90) EM,CL2«CM,COW,TXtCDF, Co 
GO TO 90 

70 WRITE ( Nt) , 90 ) EM . CL2 » t *1, CUW 
C CONSTRUCT MACH NUMBER DIAGRAM 

WRITE (Ni»,mo) 

80 I = IMC(EM) 

I = IMACH(I) 

C use PRINT WIDTH OF 1Z FOR MACH NUMBER DIAGRAM 

MB = MM 

MC = MAX0(1»MB/IZ) 

MA = MC+MAX0(1,M9-IZ*MC) 

C WRITE OUT MACH NUMBERS AT INFINITY 

WRITE (N4,1U0) (I, L = HA » MB , MC ) 

C 00 MACH NUMBERS ONE LINE AT A TIME OOyN TO THE BOOT 

J = NN-MC 

DO KSJ = R(J)*R(J) 

00. 50 L = MA,MB,MC 

U = <PHI(L + l,J)-PHI<L-l.jn*R<U)*OELTH-SI(L) 

V = <PHI(t,J+l)-pHI(L.J-l)>*OELR*RSU -CO(L> 

Q = <U*U+d*V)/FP(L«U) 

I = I MC ( MACH( Q ) ) 

MN(L) = IMACH(I) 

50 CONTINUE 

WRITE ( Ni) , 100 ) (MN(L),L = MA , MB, MC ) 
d = U-MC 

IF (U.GT.l) GO TO 40 

c do the line which is the body 

00 60 L s IMA , MB, MC 

1 s IMC(«aCHN<L) ) 

60 MN ( L ) = IIMACH(I) 

WRITE ( Ni) , 10 o ) (MN(L).L = MA,MB,MC) 

IF (ITYP.gE.4) CALL GRAFIC(CD) 

RETURN 

85 RNX = ,1*AINT( RN*l.E-5) 

WRITE (N4.150) EM, CL t TC« C«» RNX» COF 
RETURN 

90 FORMAT <1H12X3HEM=F5.4,4X3HCL=F7.4,4X*HCIM=F&.4.4X4HCDW=F7.5.4XA4 
1 ,F7,5»4 X 3HC0=F7.5///) 

100 FORMAT <3x»130Al) 

120 FORMAT ( 3H M=, F4. 3 . 5X , 3HCL= , F5.3. 5X. 3H0Y= ,F4. 3 . 6X * 4HT/C=« 



215 


1 F4. 3, 14x , 215 ) 

130 FORMAT (4020) 

140 FORMAT (1H0//) 

150 FORMAT ( 1H0//7X3HEM-, F4, 5. 4X3HCL=, F6. 4, 4X4HT/C=, F4, 3, 4x3HCM=, 
1 F6.4,4X3HRN=,F4.1»4X4HC0F=,F6.4/) 

eno 


SUBROUTINE SRAFIC(CO) 

COMPLEX ZP,Za«SFAC,SIG 
REAL MACHN 

COMMON PHI (162.31) ,FP(162, 31) ,A( 31) .8(31) ,C (31) .0(31) ,E< 31) 

1 ,RP(31> ,RPP(31> ,R(31),RS(31) ,KI<31) ,aA(162> , BB ( 162 ) , Co l 162 > 

2 ,SI(162),PHIR(162)»XC(162) «rC(162 ) »Fm(162) *ARCL(162) ,0SUM(162) 

3 . ANS0LD(162) ,X0L0(162) tY0L0(l62) ,ARC0L0(162) ,0EL0L0<162) 

COMMON /A/ PI,TP,RAD,£M,ALP,RN»PCH,XP.TC,CHD,DPHI,CL,KCL,YR 

1 ,XA, YA,TE,0T,QR,0£LTH,0£LR,RA*DCN,DSNtRA4»EPSlL,QCRIT,Cl,C2 

2 ,C4,C5tC6«C7»B£T,8tTA,FSTM,XSEP,SEPM,TTLE(4> , M, N , MM, NN , NSP 
i .IK, jK,IZ,ITYP,M00E,IS«NFC,NCY,NRN,Ng,IDIM,N2.N3,N4,NT,IXX 

4 , NPTS,LL.I.LSEP.M4 
DIMENSION CPX(l) ,MACHN(l),T( 6) 

EQUIVALENCE (CPX(l) .PHIR(l) ) , t MACHN < t ) . A ( 1 > ) 

DATA T0L/1.E-6/ , PF/-.4/ « SCF/5. 0/ , yOR/4 . 0/ .SIZE/ .14/ , SCD/200 . / 
C MOVE THE ORIGIN TWO INCHES OVER AND TjO INCHES UP 

CALL PLOT(2.0«2.S,-3) 

YOR = AMAXl(3.5,.5*AINT(20.*EM-7.0) > 

C PLOT CP CURVE AS A FUNCTION OF X 

CPF = i./PF 
CCP = CPF*CPx(l) 

CALL PL0T(SCF*XC(1) ,Y0R*CCP,3> 

DO 10 L a 2, MM 

CCP = AMlNl(8.5-Y0RiCPF*CFX(L>> 

10 CALL PlOT(SCF*XC(L) . Y0R+CCP,2) 

C ORAW ANO LABEL THE CP-AXIS 

CALL cPAXlS(-.5tYOR«l.-l,/PF,7.5-YOR,pF) 

C COMPUTE ANO PLOT CRITICAL SPEED 

CALL SYM80L ( - . 5 , YOR+CPF*CPX { MM+1 ) , 2 . *SIZE . 15 , 0. , -1 ) 

C PLOT BUOY 

CALL PL0T(SCF*XC(1) *SCF*YL(i),3) 
i)0 20 L = 2 * MM 

20 CALL PLOT(SCF*XC(L) ,SCF*YC(L> ,2) 

c label the plot 

ALPX = R AO*ALP 
TXT=BHANALYSIS 
IF(FSYM.GE.6. ) TXT=6HTHE0RY 
XL=-.9 

' C ****N0N- ANSI - SEE VOLUME I, PAGE 209**** 

IF(FSYM.GE.6. ) GO TO 30 

ENC0DE<60,19l,T) TTL£,M,N,NCY 
GO TO 40 

30 LN=RN*l.E-6+.5 

ENC0DE(60,190,T) TTLE . M , N » NCY, LN 
40 CALL SYMBOL(-1.14,-1.0,SIZE,T,0, ,56) 
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C ****NON-ANSI - SEE VOLUME I, PAGE 209**** 

ENCODE (60*170, T> TXT.E1,ALPX.CL,C0 
CAUL SYH80L(XL,-1.35,SIZ£,T,0.,60> 

CALL SY1BOL(XL-.10,-1.35+.5*SIZE,1.5*sIZE» 15,0. ,-l> 

CN=C0<1> 

SN=SI(1) 

C READ AND PLOT EXPERIMENTAL DATA IF XP IS NOT ZERO 

IF (XP.E8.0.) SO TO 130 
REKINO .14 
REAQ (14,1*0) NP 
IF <£0F(14>.N£. 0) SO TO 130 
READ (14,150) EMX,ALPX*ClA*COX*SNX 
REAO (14,160) (CO(L)*SI(L),L = 1*NP) 

TXT = 10HEXPERI1ENT 
NC=S9 

IF(SNX.GE.O. )GO TO 50 

TXT=6H0£SIGN 

NC = 3 

C ****NON- ANSI - SEE VOLUME 1, PAGE 209**** 

50 ENCODE ( 60 * 170 « T ) TXT , EMX » ALPX , CLX ,CDx 
CALL SYMB0L(XL,-1.7,SIZ£.T,0.,60) 

CALL SYMBOL(XL-.10,-1.7+.5*SIZE,SIZE,nC,0.,-1) 

00 180 L = 1 , NP 
CCP = VOR+CPF*SI(L) 

IF (CCP.GT.8.4) GO TO ISO 

CALL SYMBOL(SCF*CO(L) , CCP, . 5*SIZE, NC , n . »-l) 

180 CONTINUE 

130 IF (ITYP.E8.5) GO TO 1Z2 
C PLOT THE SONIC LINE 

EX = 1,-EPSlL 

C SET SINES AND COSINES FOR USE IN FOURIER SERIES 

MX = 1/2 

com = i. 
sun = o. 

00 60 L = l, IX 

CO ( L+l ) = CO(L)*DCN-SI(L)*OSN 
CO(IM-L) s CO ( L+l ) 

SI ( L+l ) = CO(L)*OSN+SI(L)*OCN 
60 SK1NI-L) = -SI (L+l ) 

00 120 L = 2,M 

C LOOK FOR SONIC POINTS ON THE BODY 

IF (MACHN(L).LT.l.) GO TO 110 
IF (MACHN(L-l) .GE.l. ) SO TO 80 
IPEN = 3 

C COMPUTE Z AT SONIC LINE ON BODY 

70 R1 = (1ACHN(L>-1. )/(1ACHN(L)-MACHN(L-l) ) 

ZP = C1PLX(XC(L)+R1*(XC(L-1)-XC(L)),YC(L)+R1*(YC(L-1)-YC(L))) 
CALL PLOT ( SCF*REAL ( ZP ) ,SCF*AI MAGI ZP) ,tPEN> 

IF (IPEN.EQ.2) GO TO 120 
C PINO THE SONIC LINE ALONG A RAY 

80 3 = MACHi4(U 

SX = SI(L)*CN+SN*CO(L) 

CX = CO(L)*CN-SN*SI(L) 

FAC = ,t>*OR 

ZQ = C1PLX ( XC ( L) , YC ( L ) ) 
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00 90 J a l.N 
ZP = SFAC 
RJ = R(J) 

as = a 

IF (J.ea.i) so TO 32 

U = (PH1(L+1.J)-PHI(L-1. J> )*RJ*OELTH-sX 
V = (PHIIL. J+1)-PHI(L. J-l) )*DELR*RJ*Rj-CX 
Q a (U*U+V*V)/FP(L.J) 
a = saRT(a/(ci-C2*a) ) 

82 SIS a C«PLX(RJ*CO(L) ,RJ*SI (L) ) 

C COMPUTE ( (1-SIGMA)**(1-£PSIL) JSIGMA 

SFAC a CEXP(EX*CLOG( (1. .0. >-SIG))/SIG 
C SUM UP FOURIER SERIES TO OBTAIN CONJUGATE OF W 
S = -3B<1> 

00 34 < a 1 1 NFC 
LT a MOO ( ( L-l ) *K » M ) 

S a S+RJ*( AA(K+1 J*SI(LT+X)-BB<K*1)*C0(LT+1) ) 

RJ a RJ*R(J) 

IF (RJ.UT.TOU GO TO 83 
84 CONTINUE 

C COMPUTE THE ARGUMENT OF OZ/DR 

8b SFAC a -SF ACwCMPLX ( COS ( S )« SIN ( S) ) /CABS ( SFAC ) 

C MULTIPLY THE ARGUMENT BY THE MAGNITUDE TO OBTAIN OZ/DR 

SFAC a SFAC*(CHD*S9RT(FP(L,JJ))V(R(J)*R(J)> 

C PERFORM the INTEGRATION 

Z3 a Z84-FAC*SFAC 
FAC a OR 

IF (Q.LE.l.) GO TO 100 
90 CONTINUE 

100 ZQ a ZS-.5*DR*SFAC 

ZP = za-.5*DR*(SFAC+ZP) 

R1 = 0-1. )/(Q-as) 
zp = za*Ri*(ZP-za> 

CALL PLOT (SCF*R£AL(ZP) .AMAX1(-2,0.SCF*AIMAG(ZP) > *2) 

GO TO 120 
110 IPEN a 2 

IF (MACHN(L-l).GE.l. ) GO TO 70 
120 CONTINUE 

C POSITION PEN AT BEGINNING OF NEXT PAGE 

122 CALL PLOT ( 10 . 0 , -2 . t> , -3 ) 

IF ( (FSYM.NE.7, ) .OR. (ITYP.E8.6) > RETURN 
C PLOT THE BOUNDARY LAYER DISPLACEMENT 

MX a INOEXR (O..XC»M> 

CALL PLOT (2. .1.5. -3) 

CALL SYM80L(l,36»-.65«SIZEtl9HL0WER SuRFACE DELS »0.«19) 
CALL CPAXIS (0.,0.»0.,4.,1./SCO) 

C PLOT LOWER SURFACE 

CALL PLOT (SCFWXC(I) »SC0*USUM(1) ,3> 

00 132 L a 2, MX 

132 CALL PLOT ( SCF*XC ( L > i SCOwOSUM ( L > , 2 > 

CALL PLOT (0. *4. 5.-3) 

CALL SYMB0L(i.36,-,65tSIZE,19HUPPEK SijRFACE DELS .0,»19> 
CALL CPAXIS (0.t0.<0.<4.tl./'SCO) 

C PLOI UPPER SURFACE 

CALL PLOT (SCF*XC(MX) . SC 0*0 SUM ( MX ) * 3 ) 
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00 134 L = HX.M 

134 CALL PLOT ( SCF*XC ( L+l ) , SCU*0SUM ( L+l ) , s> ) 

CALL PLOT(10.,-6.,-3) 

RETURN 

140 FORMAT <10X,I3> 

150 FORMAT { 3F6. 3 , F7 . 5 , £9 . 1 ) 

160 FORMAT < 2F10 .4) 

170 FORMAT <Ai2,4H M=F4 . 3 , 3X4HALP=F5 . 2 , 3*3HCL= ,F5.3, 3X3HCD= ,F5. 4 ) 

190 F0RMAT(4A4,3X4HM*N=I3.1H*I2,3X4HNCY=l4,4X2HR=I2,BH MILLION) 

191 F0RMAT(4A4,3x4HM*N=I3.lH*I2,3X4HNCY=l4,4X12HN0 VISCOSITY) 

ENO 


SUBROUTINE CPAXIS ( XOR , TOR » BOT * TOP , SCF > 

ORAWS ANO LABELS THE CP AXIS 

XOR* YOR IS THE LOCATION OF THE ORIGIN OF THE AXIS 
60T IS THE LENGTH OF THE AXIS BELOri ThE ORIGIN 
SCF IS « SCALE FACTOR JSEO FOR LA3ELI\|G 
SCF NEGATIVE FOR CP AXIS ANO POSITIVE FOR DELS AXIS 
SIZE - ,12-SIGN( . 02. SCF) 

C DRAW THE VERTICAL AXIS 

CALL PLOT (X0R,Y0R+T0P,3) 

CALL PLOT ( XOR * YOR-BOT * 2 ) 

C ORAW HATCH MARKS ANU LABELS ONE INCH APART 

N = 1+INT(B0T)+INT(T0P) 

S = - AlNT ( BOT ) *SCF +1.E-12 
XH = X0R-(3.*SIZE)/.7 
YH = YOR-AINTtBOT) 

00 10 I = l.N 

CALL SYMBOL (XOR, YH.SIZE, 15,0. * -1 1 
C ****NON- ANSI - SEE VOLUME I. PAGE 209**** 

IF (SCF.GT.O.) ENCOOE (10*25, A) S 
IF (SCF.LE.O.) ENCOOE (10, 20, A) S 
S s. S* SCF 

CALL SYMBOL <XH,YH,SIZE,A,0.,4) 

10 YH = YH*1« 

IF (SCF.GT.O.) GO TO 30 

CALL SYMBOL(XOR+.1,YOR+2.5,.14*1HC«0.,1) 

CALL STMBOL(XOR+.25,YOR4-2.3B..14,1HP,0. ,1) 

RETURN 

C ORAW THE X-AXIS 

30 CALL PLOT ( XOR , YOR-BOT , 3 ) 

CALL PLOT (XOR+5.0, YOR-BOT, 2) 

CALL SYMBOL (XOR+5.SiYOR-.07,.14«1HX«o.,1) 

TH = YOR-BOT-SIZE-SIZE 
00 40 I = 1,5 
S = ,2*FL0AT(I) 

ENCOOE <10, 20, A) S 

XH s YOR+FLOAT(I)-SIZE-SIZE 

CALL SYMBOL (XH, YH.SIZE, A, 0.,4> 

40 CALL SYMBOL ( XOR+FLOAT( I ) , YOR-BOT, SIZE , 15 , 90 . , -1 ) 
CALL SYMBOL (XOR+.25,YOR+3,0«.14«4HDELS,0.,4) 

RETURN 
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25 FORMAT ( F4.3) 
20 FORMAT (F4.1) 
END 
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SUBROUTINE GOPLOT (NRN) 

INITIATE PLOT 

******* ************************ *************************** ******* 

THIS SUBROUTINE SHOULD BE REPLACED BY ANY ROUTINE WHICH INSTRUCTS 
THE SYSTEM To INITIATE A PLOT 

***************************************************************** 

DIMENSION 10(6), LTA 8 (S), NAMEI16) 

DATA MS.NU/77777777000000B,16/ 

OATA NAME/IOHGARABEOIAN,7H 109-01 , 10HDAVID K0RN.7H 109-03, 10H F, B 
1AUER ,7H 109-02.10HD. 3QOOMAN, 7H 109-06, 10HJ, OAHLIN ,7H 109-07,10 
2H0AVI0 K0RN,7H 141-01, 9HF. BAUER ,7H i43-07,10HA. JAMESON, 7H 109-0 
34/ 

DATA L n'B/3H3344343,3H334‘*36B,3433443sB,3433444lB,34334442B, 345734 
134B.34373642B, 343344373/ 
ishifkxxx, yyy) = shifhxxx.yyy) 

N = M00( IABS(NRN) ,1000) 

CALL REAOCP (10,219*1) 

10(1) = ISHIFT(ID(2).AND.MS,-18) 

00 10 L = 1 « NU , 2 
J = L/2+1 

IF (LTA 8 ( j)-ID(l) ) 10,20,10 
10 CONTINUE 
L = NU+I 

20 ENCODE (60,30,10) NAME < L ), NAME ( L*1 ), N 
IF (NRN, ST. 1000) GO TO 50 
CALL PLOTS (600,10) 

RETURN 

50 CALL PLOTSBL (600,10) 

return 

30 FORMAT(A 10 , 5 H — , A7, 11X, 13) 

END 


SUBROUTINE AIRFOL 

REAOS IN OATA FOR AIRFOIL AND DETERMINES TmE MAPPING 
FUNCTION 8Y COMPUTING FOURIER COEFFICIENTS 
IF ONLT X.Y COORDINATES ARE PRESCRIBED SLOPES ARE COMPUTEO 
COMMON Phi (162, 31) ,FP(162,31),A<31) ,B(31) ,C(31) ,D(31),E(31) 

1 ,RP(31) ,RPP(31) ,R(31) ,RS(31) ,RI(31) , a A(162) , BB( 162 ) ,CO( 162 ) 

2 , SI (152) ,PHIR(162) ,XC(162), YC(162> *Fm( 162) , ARCL( 162 ) , DSUM( 162) 

3 ,ANG0L0(162) ,XOLD( 162) , YOLO (162) ,ARCnLD( 162) ,DELOLO( 162) 

COMMON /A/ Pl,TP,RAO,EM,ALP,RN,PCH,XP.TC,CHO,OPHI,CL,RCL,YR 

1 ,XA,YA,Te,UT,0R,DELTH,0£LR,RA,0CN,QSN*RA4.EPSIL,9CKIT,C1.C2 

2 ,C4,C5,C6,C7,8ET,BETA,FSYM,xSEP,SEPM,TTLE(4) , M, N , MM, NN, NSP 

3 ,I«, JK,IZ,ITYP,M00E,IS,NFC,NCY,NRN,Nr,IDIM,N2,N3,N4,NT,IXX 

4 , NPTS,LL,I,ESEP,M4 
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DIMENSION XX(1) . YY(1),U(1),V(1) ,W(1) ,sP(l),CIRC(l) , TH(1)*TT(1) 

i iOS(i)<ssm tCxii) .sxd) .asRd) , title( 15) <m> 
equivalence<xx(ii ,fp<i, 3 n ,(yy<d,fp«i,5)) ,<u<i> »fpu,i)j , 

1 ( VU),FP(1«7>)« CW(1>*FP<1,9)>«(SPU>.FP(1.11)),<CIRC(1> «FP 

2 (1,13) > . (THU) .FP(1. 15) ),(TTU> ,FP< 1.17) ). ( OS ( X > tFPt 1*19) ) , 

3 (SS(1) »FP(1.21) ) . <CX<1) ,FP(l,23> >, (S*(l> ,FP(1*25) ) . (USR(1> . 

4 FP ( 1 , 27 ) ),(Z(1)«FP(1«29)> 

S9(02) = 02*02 

SMOOTH(01»Q2»Q3*Q4) = 32+SS ( SO ( SO ( Q4 ) ) ) * . 25* ( 91-Q2-02+O3 ) 
DIS(Ol) = (Q1-ERR)*((Q1-ERR)*(91» ERR)*. CONST) 

DATA TOL, NT, ISYM, CONST, VAL/.4E-7, 999, n».2«4HRUN / 

oata oxosi,oxDs2,oyosi,oros2/4*o./ . < T/“l , / 

C NMP is The number OF POINTS IN CIRCLE PLANE FOR FOURIER SERIES 
LC = NFC 
VMP = 2*LC 
MC = NMP + 1 
PILC = PIZFLOAT(LC) 

IF (FSTM.GE.6.) GO TO 150 
WRITE ( Nij , 47 0 ) 

REWIND N3 

RE AO (N3,4l0) TITLE 
IF (FSTM.GE.3.) GO TO 100 

C RE AO IN COORDINATES AS PRODUCED BY PROGRAMS 0 ANO F 

EPSIL = 2. 

XX(1) = 0, 

NL = 2 
REWINO N3 

RE AO (NS, 510) EM,Cl*OY,TC*NRN 
IMC = MOO(INT(100«*£M+»5)*100) 

ICL1 = MOO(INT(CL+,05) ,10) 

ICL2 = MOO(INT(10,*CL+«5) ,10) 

ITC1 = MOO(INT(10.*TC+,05) ,10) 

ITC2 = MOQ(INT(100«*TC+,5)»10) 

ENCODE (40,530, TTLE) I «IC , 1CL1 , ICL2, ITcl , ITC2 
MODE = 0 

IF (NRN.LT.O) FSYM=2. 

10 READ ( N3 , 500 ) U ( 2 ) , V ( 2 ) , XX ( 2 ) , YY ( 2 ) , F AC 
IF (XX(2).LT.l.) GO TO 20 
C SAVE TAIL POINT ON LOWER SURFACE 

U(l) = 0(2) 

V(l) = V ( 2 ) 

XX(1> = XX ( 2 ) 

YY ( 1 ) = Y Y ( 2 ) 

GO TO 10 

20 00 40 L = 3,999 

REA0 (43,500) U ( L ) , V ( L ) , XX ( L ) , YY ( L ) , FaC 
C ****CHECk FOR END OF FILE**** 

IF ( EOF ( N3 ) , NE. 0 ) SO TO 50 
IF (XX(L) .EQ.1, ) GO TO 70 
IF (XX(L).LT.XX(NL)) Nt = L 
40 CONTINUE 

C AIRFOIL HAS BEEN ExTENOEO IN PROGRAM o 
50 XT = 1, 

70 NT = L 

IF (XX(I).EQ.l. ) GO TO 95 
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IP (XT.LT.O.) XT = 1. 4.6*07 
NRN r IABS(NRN) 

C INTERPOLATE TO PUT THE TAIL AT X = XT 

C LOWER SURFACE INTERPOLATION 

1 = 1 
L = 2 

80 R1 = <XT-xX<l+ 1) )/<XX(L)-XX<L4l> > 

R 2 = 1.-R1 

T V ( I > = Rl*YY(L)4R2*YY(L4l) 

U(I) = R1*U<l)4R2*U(L«-1) 

V(I) = Rl*V<L)+R2*V(L4l> 

XX(I) = XT 

IF (I.EQ.NT) SO TO 150 
C UPPER SURFACE INTERPOLATION 

I = NT 
L = NT-2 
GO TO 80 

C READ IN AIRFOIL DATA FROM CARDS 

100 REAO (N3.420) FNU« FNL • EPSIL 

READ (N3,<t?0) 

NT = FNU+FNL-1. 

NL = FNL 

00 110 I = NLtNT 

110 REAO ( N3 « 420 ) U ( I) , V < I ) , XX { I ) , YY ( I) 

REAO (NA'lfTO) 

00 120 I = 1 < NL 
J = NL+l-I 

120 REAO (N3.420) U ( J > i V ( J ) . XX ( J J , Y Y ( J) 

00 130 J =1,4 
130 TTLE(J) = TITLE(J) 

IF (FSYM.LE.4.) GO TO 150 
00 140 L = 1 , NT 
TH< L) = XX ( L ) /RAD 
XX ( L ) = U(L) 

140 Y Y ( L ) = V< L) 

GO TO 195 

C NO PERIOD IN the stream function 
95 EPSIL = 0. 

C DEFINE SLOPES SO THAT ARC LENGTHS CAN BE COMPUTEO TO FIRST ORDER 
150 IF ((FSYM.EO.l.J.OR.JFSYM.EQ.S.)) GO tO 170 
00 160 I a 1 1 NT 
160 TH ( I ) - 0. 

ISYH = 1 
GO TO 200 

C COMPUTE SLOPES FROM VELOCITIES 

170 TH( 1 ) = ATAN(V(1)/U«1) ) 

QSR(l) = Ull>*U(l>+V(l>*V<l) 

00 190 I = 2, NT 

C CHOOSE NEAREST BRANCH FOR THE ARCTANGENT 

OTH = ATAN((U(I-1)*V(I)-U(I)*V(I-1))/(U(I-1)*U(I)+V(I-1)*V(I))) 
TH( I ) = TH(I-1)+0TH 
190 QSR(I) = U( I ) *U( I )+V(I)*V( I » 

195 IF (EPSIL. GT. 1. ) EPSIL = < TH<1>- ( PI*Th< NT) ) ) /PI 

IF (FSYM.GT.5.) EPSIL = < TH< 1 ) 4TH<2 ) -TH (NT) -TH( NT-1 ) >/TP-i . 

C COMPUTE ARC LENGTH TO FOURTH ORDER ACCURACY 
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200 SP<1) = 0. 

00 210 1 = 2, NT 

DUM = AMAX1(.1E-20..5*ABS(TH<I)-TH(I-i >>) 

OX = XXU)-XX(I-l) 

or = rrm-rr(i-i> 

210 sp(D = sp(i-i)+safU(Dx*ox+or*or)*ouM/siN(OUM) 

ARC = SP(NT) 

SN = 2. /ARC 
SCALE = . 25* ARC 
EE = .5*<1.-EPSIL> 

00 220 L s: 1 1 NT 
220 SS(U = AC0S(1.-SN*SP(L>> 

SS(NT) = PI 

IF (ISYM.NE.O) GO TO 350 

CALL SPLIF (NT,SS,TH,U.V«W»3»0.,3«0.) 

IF <FSYM.GT.5.> GO TO 232 
WRITE (N4.410) Tl TL£* V4L ,NRN 
IF (N4.NE.N2) WRITE <N2,410> TI TLE, VAt_ » NRN 
C PRINT OUT AIRFOIL OATA 
WRITE (N4.430) 

DO 230 L = 1 . NT 
VAL = TH(L)*RAO 

SUM =-SN*u(L)/AMAXl< ,1E-5.SIN(SS(L> >) 

IF ( (L.tQ.l) .OR. (L.EQ.NT) > SUM = W ( L) *SIGN< SN. FLOAT ( L-2 ) ) 

230 WRITE ( N4 • 460 ) XX ( L ) * TT ( LI , SP (O . WALt SUN . V ( L ) , W ( L > 

WRITE (N4.440) 

C MAKE INITIAL GUESS OF ARC LENGTH AS A FUNCTION OF CIRCLE ANGLE! 

232 OX = (XX(NT)-XX(l) )/TP 

or = (rt(NT)-rr(i > )/tp 

00 240 I = l.MC 
ANGL = FL0AT(I-1)*PILC 
CIRC ( I ) s ANGL 
CX(I) = COS(ANGL) 

SX(I) s SIN(ANGL) 

rr<u = l. 

if (ee.ne.o.) rrd) = (2.-2.*c*m )**zc 
FAC = SIGN(1.+CX(I>,FL0AT(LC-I)> 

240 SP(I) = AC0S(.5*FAC) 

SP(MC) ■=■ PI 
C IRC ( MC ) = TP 
IF (FSYM.LT. 6.) GO TO 244 
SCALE = ARC/ARCl(MM) 

00 242 L a. i.MM 
242 Z(L) = FL0AT(L-1)*0T 

CALL SPLIF (MM,Z,ARCL,CO,SI,PHIR,3,0..3.0.) 

CALL INTPL (NMP,CIRC,SP,Z,ARCL»CO,SI,PHIR) 

244 00 245 L = 1,LC 
08 ( L ) = CX(2*L-1) 

245 A A ( L ) = -SX(2*L-1> 

C 00 AT MOST 100 ITERATIONS TO FIND THE FOURIER COEFFICIENTS 

00 320 K = 1,100 
CALL INTPL(NMPiSP,TT,SS,TH,U,V«W) 

00 250 I = l.NMP 

250 TT ( I ) - TT<I) + .5*(CIRC<I)4EPSIL*(CIRCin-PI) ) 

C ENSURE CLOSURE 
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OUM = 0. 

SUM = 0. 

FAC = 0, 

DO 260 L = 1 » NMP 
OUM = OUM -TT(L) 

SUN = SUM-TT(L)*CX(L) 

260 FAC = FAC+-TT ( L ) *SX ( L ) 

OUM = 0UM/FLOAT(NlMp> 

Da s 1.*£PSIL-(OX*SINOUM)+OY*COS(OUM) > /SCALE-F AC/FLOAT ( LC > 
08 = <OY*sIN<0(J«)-OX*COS<OJM) >/SCAlE-«;UM/FL0AT(LC) 

00 270 L = 1 * N IP 

270 TT ( L ) = TT(L)+0A*SX(L)-08*CX(L> 

C FI, MO THE CONJUGATE FUNCTION OS 

CALL C0Nj( NMP , TT , OS < XX , 88 « AA ) 

00 290 I = 1 , NMP 
SUM = OS(I) 

290 OS(I) = YY ( I J *EXP ( SUM) 

OS ( MC ) = 0S(1) 

CALL SPLlF(MC,CIRC,DS,XX,XC,Z,-3,0. ,3.0.) 

SCALE = ARC/Z(MC) 

ERR = 0. 

00 310 I = l.NMP 

VAL = AC0S(1.-2.*Z(I)/Z(MC)> 

, ERR = AMAXUERR,A8S(SP{ I)-VAL> > 

310 SPm = VAL 

IF (FSYM.lE.5. > WRITE (N4.490) ERR, DA. OB 
IF (ERR.LT. TOL) GO TO 330 
320 CONTINUE 

WRITE (Nl»,450) 

330 CALL F0UCF(NMP,TT,CX,B3,AA) 

AA ( 1 ) = ARC 

AA ( 2 ) = l.-EPSIL-(OX*SIN(BB(l) > +OY*CO«; < BB (1 ) ) >/SCALE 
88(2) = (-0X*C0S(B3(1) )+0Y*SIN(8B(l) ) i/SCALE 
IF (FSYM.GT.5.) GO TO 342 
WRITE (N4.460) EPSIL, NMP 

IF ( (FSYM.Nt.l. ) . AND. (FSYM.NE.3. ) > GO TO 341 
00 344 L = l.MM 
344 Z ( L ) = PL0AT(L-1)*0T 

CALL SPCI F ( MC. CIRC, SP,U,V»W. 3,0., 3,0, ) 

CALL INTPL(MM,Z,DS,CIRC,SP.U, V.W) 

CALL SPLIF (NT,SS,OSR, J, V.W, 1,0. ,1,0. > 

CALL INTP L (MM,0S, A,SS,aSR.U,V,W) 

341 IF (IZ.NE.120) GO TO 342 
WRITE ( N4 , 540 ) 

00 340 L = l.NFC 
340 WRITE (N4.490) AA(L),B3(L) 

342 CALL MAP 
RETURN 

350 IF (FSTM.lE. 5.) GO TO 355 
QXOSl = (XX(2)-XX<1) )/SS(2) 

OXOS2 = (XX(NT)-XX(NT-l) )/(SS(NT)-SS( nT-1) > 

0Y0S1 = (YY(2)-YY(1) )/SS(2) 

OYOS2 = (YY(NT)-YV(NT-1))/(SS(NT)-SS(nT-1)) 

355 CALL SPLIF(NT,SS,XX,U,SP,W,1,DXDS1,1,0XDS2) 

CALL SPLIF(NT,SS, YY, V, TT ,DS , 1 , 0 YDS1 , 1 , 0YDS2 ) 
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IF (IS.LT.O) GO TO 397 
OC = PI/FLOAT ( NMP) 

ERR = SS(NL) 

DUM = OIS(0.) 

FAC = PI/(OIS<PI)-OUM) 

00 360 L = 1,MC 

360 C IRC ( L ) = FAC*(DIS(FL0AT(L-1)*0C>-0UM) 

CALL lNTPL(NMP,CIRCtSX,SS,XXtUtSPtW) 

CALL INTPL<NMP,CIRCtCX,SStYYt VtTTtOS) 

SX(MC) = XX(NT) 

CX ( MC ) = YT ( NT ) 

SFAC = l./(XX(NT)-XX(NL) > 

XXNl = XX ( NL ) 

00 370 L =. 1 * MC 
CX ( L ) = SF AC*CX ( L ) 

SX(L) = SFAC*(SX(L)-XXNL) 

XX ( L ) = SX(L) 

370 YY ( L ) = CX(L) 

WRITE <N4,520) IS 
IF ( N2« NE • N4 ) WRITE <N2t520) IS 
IF(IS.EQ.O) GO TO 395 
C 00 IS SMOOTHING ITERATIONS 

00 390 K = 1,IS 
00 380 L = 2 i NMP 

XX < L ) = SM00TH(SX(L-1) t SX< L ) * SX ( L + l ) «sX(L) ) 

380 YY ( L ) = SMOOTH(CX<L-l)tCX(L)tCX(L + l).<;X(L>) 

00 390 L = 2, NMP 
SXCLJ = XX ( L ) 

390 CX(L) = Y Y ( L ) 

39S NT = MC 

CALL SPLIFTNTtCIRCtXXtUtSPtWtltO. tltO.) 

CALL SPLIF ( NTt CIRC t TYt VtTT.DS.lt 0. tit 0. > 

397 ISTM = 0 

IF (FSTM.GT.5.) GO TO 170 
U(l) - SP(X) 

V(l) = TT ( X » 

U( NT ) = SP(NT) 

V ( NT ) = TT(NT) 

GO TO 170 

410 FORMAT (1X16A4.I4) 

420 FORMAT (5F10.7) 

430 FORMAT (35HOAIRFOIL COORDINATES AND CuRVATURES/IHO . 6X t 1HX » 14X1HT 
1 , 9X 1 10H ARC LENGTH. 7X3HANG,8X5HKAPPA.i0X,2HKP.llXt3HKPP//) 

440 FORMAT (lHlt4Xt3HERRtl4Xt2H0Atl4Xt2H0B//) 

450 FORMAT ( 32H FOURIER SERIES DID NOT COuVERGE) 

460 FORMAT ( 34H0MAPPING TO THE INSIDE OF a CIRCLE//3X11H0Z/0SIGMA = 

1 50H -d/'SIGMA**2)*(l-SIGMA)**(l-EPSIL)*(EXP(W(SIGMA) )//3X. 

242HW ( SISMA ) = SUM ( ( A ( N ) -1*8 ( N ) > *SIGMA** < N-l > > //3X , 7HEPSIL = 

3 F5 . 3 1 20 X 1 14, 25H POINTS AROUND THE CIRCLE ) 

470 FORMAT C 1H1 ) 

480 FORMAT (Fl2.6,2F14.6,F14.3,F14.4,2E14.3) 

490 FORMAT (3E15.6) 

C ****CHANGE (4020) TO (20A4) ON IBM 36n**** 

500 FORMAT (4020) 

510 FORMAT ( 3X t F4. 3 t 8X, F5. 3 t 8X ,F4. 3 t 10X t F4. 3 t 14X t 15) 
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520 FORMAT ( 10H0THERE ARE,I4,26H SMOOTHING ITERATIONS USEO /) 
550 FORMAmHAlRF.&X,3rtOIL.7X*i2tlrt-,U,6*,Il*lH-»2Il) 

540 FORMAT ( //7X4HA ( N ) , 10X4HB < N ) // ) 

END 


SUBROUTINE map 

C SUM UP FOURIER SERIES TO OBTAIN MAPPING FUNCTION 

COMPLEX tt.tmp 

COMMON PHI (162*31) *FP( 162*31) *A(31),B(31),C{31) *0(31) *E(3l) 

1 *RP(31)*RPP(31),R(3l),RS(31)*RI(31)*aA(162) , BB ( 162 ) , Co ( 162 ) 

2 ,SI(162) ,PHIR( 162), XC( 162), YC( 162) ,F.*|< 162). ARCL( 162), DSUM( 162) 

3 , ANGOLO( 162) «XOLO( 162) .YOLO (162) ,ARCnLO( 162) ,DELOLO( 162) 

COMMON /A/ Pl.rP.RAO,EM,AEP*RN*PCH,XP.TC*CHD*DPHI*CL,RCL,YR 

1 ,XA, yA,TE*DT,OR,OELTH,OELR.RA.UCN,OSn*RA4.EPSIL.OCRIT,C1*C2 

2 ,C4,C5,C6*C7*3£T,8ETA,FSYM,XSEP,SEPM. ULE(4) * M, N* MM, NN , NSP 

3 , IK, JK,I2,ITYP,MOO£,IS,NFC,NCY,NRN,Ns,IOIM,N2,N3,N4,NT,IXX 

4 , NPTS.LL.I.LSEP.M4 

C ****CHANGE TO l.E-6 FOR SINGLE PRECISION IBM 360**** 

OATA POW.TOL/-12..10.E-12/ 

C NOTE THAT THE SQUARE OF THE MAPPING MnDULUS IS BEING COMPUTED 

MX = M/2 

C SET THE SINES AND COSINES 

CO(l) = 1. 

SI(1) = 0. 

00 5 L = l.MX 

CO ( L+l ) = CO(L)*DCN”SI(L)*0SN 
CO(MM-L) s CO ( L+l ) 

SI(L+1> = CO(L)*OSN+SI(L)*OCN 
5 SKMM-L) = *SI ( L+l ) 

C SET MAPPING MOOULUS FOR CUSP AT THE T a IL 

00 10 J = 1 , N 

FP (1,J) = l.+R( J)*(R( J)-2. ) 

00 10 L = l.MX 

10 FP( L+l , U) = l.+R( J)*(R( J)-2.*C0(L+1) ) 

IF (EPSIl.EO.O. ) GO TO 30 
C ADJUST IF THERE IS AN ANGLE AT THE TAIL 

00 20 J = 1 , N 

FP ( 1 , J ) = FP(1,J)**(1.-£PSIl) 

00 20 L = 1 , MX 

20 FP ( L+l , J ) = FP(L+1, J)**(1.-EPSIL) 

C NON COMPUTE CONTRIBUTION FROM FOURIER SERIES 
30 00 50 J = 1 *N 

NFCX - MINO(NFC,1+INT(POH/ALOG10(R{ J)-TOL> ) ) 

RJ = 2 »*R ( J) 

K = NFCX 
S = A A ( K + l ) 

35 S = R(J)*S+AA(K) 

K = K-l 

IF (K.GT.l) GO TO 35 

FP ( 1 , J ) = FP(1,J)*EXP(S*RJ) 

00 50 L = 1 , MX 
K = NFCX 
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LX = K*L 

LT = 400 ( LX * 4 ) 

S = A A ( K+l ) *C0 ( LT+1 ) 

S = B8<K + 1>*SKLT + 1> 

40 LX = LX-L 

LT = 400<lX*4) 

S = R( J)*S+AA<K)*C0(LT+11 
a = R( J)*a+68(I<)*SI(LT*-1) 

K = K-l 

If (K.GT.l) GO TO 40 
0U4 = FP(L+1.J) 

FP<4M-Ltj) = EXP{Rj*(S-0) >*DU4 
50 FP<L+1»J> = EXP(RJ*<S+Q) )*OUM 
00 65 L = 1,4 
S = PZ-B3(1) 

00 60 K s 1 ,NFC 
LT = 400 ( (L-1)*K,H) 

60 S = S+AA(K+I)*SI(Lr+l)-SB(K+l)*CO(LT+i) 

ANS = FL0AT(L-1J*0T 
FP(L.M'V) = 1. 

65 FI4( L J = S-.5«(ANG+£PSIL*<ANG-PD > 

FM ( 4H ) = F4(1)-<1.+EPSIL)*PI 
00 70 J = l.NN 
FP ( 414 « J ) = FP ( 1 , J ) 

70 FP < 44 + 1 1 J ) = FP( 2 t J ) 

C COMPUTE ARC LENGTH ANO SOOT FROM THE 4 APPING BY INTEGRATION 

X4IN = 0. 

Y4IN = 0. 

Y4AX = 0, 

S = -SORT i FP ( 1 » 1 ) ) 

TI4P = Ci4PLX(S*C0S(F«(l) ) ,S*SIN(FM(1) ) > 

00 80 L = 1*44 
8 = SQRT(FP(L*1) ) 
s = s+a 

ARCL(L) = S 
S = S+S 

TT = CMPLX(Q*C0S(FM(L) ) «a*SlN<F4(L) ) ) 

T,4P = T4P + TT 
XC ( L ) = REAL(TMP) 

rciL) = ai4ag<tmpj 

XMIH = A4IN1(X4IN«R£AUTMP> ) 

YMIN = AMINKYMIN* AIMAG(T4P) ) 

TMAX = A4AX1( Y4AX, AI4AG<T4P) ) 

T4P = TMp+TT 
80 CONTINUE 

CHO = -1./X4IN 
TC = ( Yi4AX-TMIN)*CH0 
00 90 L = 1 1 44 
ARCL(L) = CHQ*ARCL(L) 

XC(L) = 1 . +CHD+XC l L) 

90 YC(l) = CHO*YC(L> 

CHO = CH0/(.5*0T) 

IF IABSIFSY4) .5T.5.) GO TO 100 
ANG0= -RA0*B8<1> 

WRITE ( N 4 , 120 ) TC.ANGO 
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IF (N2.NE.N4) WRITE (N2U20) TC, ANSO 
IF (MOOE.EQ.O) A LP = < 1 .♦BET ) *CL/ ( 6,*pI*CH0) -BB II > 

100 CALL COSI 
RETURN 

120 FORMAT (32H0THE THICKNESS TO CHORD RAtIO IS .F6.4//10H THE ANGLE 
1 17H OF ZERO LIFT IS ,F6,3,flH DEGREES* 

eno 


SUBROUTINE SPLIF <N,S,F,FP,FPP.FPPP,Km»VH,KN,VN) 

SPLINE FIT 

GIVEN S AND F AT N CORRESPONDING' POINTS, COMPUTE A CUBIC SPLINE 

THROUGH THESE POINTS SATISFYING AN ENrj CONDITION IMPOSED ON 

EITHER End. FP,FPP,FPPP WILL PE the first.second and third 

DERIVATIVE RESPECTIVELY AT EACH POINT ON THE SPLINE 

KM IS THE DERIVATIVE IMPOSED AT THE START OF THE SPLINE 

VM WILE BE THE VALUE OF THE DERIVATIVE THERE 

KN IS THE DERIVATIVE IMPOSED AT THE EmO OF THE SPLINE 

VN WILE BE THE VALUE OF THE DERIVATIVE' THERE 

KM.KN CAN TAKE VALUES 1,2, OR A 

S MUST BE MONOT0NIC 

DIMENSION S(I), Fill, FPU). FPP(l), fPPP(I) 

K = 1 
M - 1 
I = IM 
J = M+K 

OS = S(J)-S(I) 

0 a OS 

IF (DS.EQ.O.) CALL ABORT 
DF a (F(j)-F(I>>/OS 
IF (lABS(KM)-2) 10,20,30 
10 U s .5 

V = 3, * ( OF-VM ) /OS 
GO TO 50 

20 U = 0. 

V a VM 
GO TO 50 

30 U a -1. 

V = -OS*VM 
GO T050 

40 I a J 
U a U+K 
OS a S(J)-Sd) 

IF (0*OS.LE.O.) CALL ABORT 
OF a <F( J)-F(I) >/OS 
3 a 1,/tOS+OS+U) 

U = B*QS 

V = B* t 6, *0F» V ) 

50 FP(I) = U 

FPP(I) a V 
U = ( 2, -U ) *OS 

V = 6.*0F+0S*V 

IF (J.NE.N) GO TO 40 
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IF (KN-2) 60 « 70 • BO 
60 V = (6,*VN-V)/U 
GO TO 90 
70 V = VN 
GO TO 90 

90 V : <0S*VN*FPP<I))/<1.*FP(IM 
90 8 = V 

0 = OS 

100 OS = S(J)-S(I) 

U = FPP<I)-FP<I)*V 
FPPP(I) = (V-UJ/OS 
FPP(I) = U 

FP ( I ) = <F<U)-F<I))/0S-0S*<V+U*U)/6. 

v = u 
u = I 

1 = I-K 

if (j.ne.m) go to ioo 
FPPP(N> = FPPP(N-l) 

FPP(N) = 8 

FP ( N ) = 0F+0*(FPP<N-l)+B+B)/6. 

IF (KM.ST.O) RETURN 

C IF KM IS NEGATIVE COMPUTE. THE INTEGRAL IN FPPP 
FPPP(J) = 0. 

V = FPP< J) 

105 I = J 

J = J4-K 

OS s S(J)-S(I) 

U = FPPIJ) 

FPPP(J) = FPPP(I)4..5*0S*(F{I)*F( U)-0S«0S*(U«-V)/12.> 

V = U 

IF (J.NE.N) GO TO 105 

RETURN 

ENO 


subroutine intpl <nx,si,fi*s,f*fp.fpp,fppp> 

GIVEN S » F ( S ) and THE FIRST THREE DERIVATIVES AT A SET OF POINTS 
FIND FKSI) AT THE NX VALUES OF SI BT EVALUATING THE TAYLOR SERIES 
OBTAINED BY USING THE FIRST THREE DERIVATIVES 
OIMENSION SI(1), FIU), S(l), F(l), FP(1), FPP(l), FPPP(l) 

DATA PT/, 33333333333333/ 

U = 0 

00 30 I = 1 1 NX 
VAL = 0. 

SS = SKI) 

10 J : U*1 

TT = S(U)-SS 

IF (FLOAT(U-l)*TT) 10,30,20 
20 U = J-l 

SS = SS-S(U) 

VAL = SS*(FP<U)+.5*SS*«FPP< J ) +SS*PT*FPPP < J) ) ) 

30 FI(I) = FlUKVAL 
RETURN 
ENO 
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SUBROUTINE CONJ (N,F,G«X,CN,SN> 

CONJUGATION BY FAST FOURIER TRANSFORM 

GIVEN THE REAL PART F OF AN ANALYTIC FUNCTION ON THE UNIT CIRCLE 
THE IMAGINARY PART G IS CONSTRUCTED 
COMPLEX F,G,£IV,EIT 

DIMENSION F(l) ,G(1> ,Xd> . CN(1).SN<1) 

OATA PI/3. 14159265356979/ 

L = N/2 

OX = l./FLOAT (L) 

El V = CMPLX ( COS ( PI *DX ) »SIN( PI*OX ) ) 

00 2 I = 1 »L 

2 6(1) = F ( I ) 

CALL FF0RN(L*G*X.CN.SN) 

G ( 1 ) = 0. 

1 = 1 

00 10 J = 1.L.2 

EIT = CMPlX(sN(IJ*OX,CN(I)*OX) 

1 = Id 

G(J) s G(j)*EIT 
tO G ( J+l ) = G ( J+l ) *£I T*EI V 
00 22 1=1, L 
22 SN ( I ) = -SN( I ) 

CALL FF0RM(L,G,X,CN,SN) 

00 32 1=1, L 

32 SN ( I ) = -SN( 1 ) 

EIV = CMPLX ( AlMAGt G ( L) ) , REAL ( G( i ) ) ) 

1 = L 

40 G ( I ) = CmpLX(AIHAG(G(I-1)),REAL(G<I))» 

1 = 1-1 

IF (I.GT.l) GO TO 40 
G ( 1 ) = EIV 

return 

eno 


SUBROUTINE FOUCF(N.G,X, A,B) 

C FOURIER COEFFICIENTS BY FAST FOURIER TRANSFORM 

COMPLEX G* El V 1 3P , X « GK 

DIMENSION G ( 1 ) i X ( 1 ) « A(l).pd) 

OATA PI/3. 14159265358979/ 

L ■ = N/2 

V = PI/L 

EIV = CMplXJCOSJ V) ,SIN{ V) ) 

ENI = l./FL0AT(N) 

CALL FFORM(L,G,X,A,B) 

GK — 0 . 

I = 1 

00 5 J = 1 , L , 2 
X ( J ) = CMPLX(BCI),A(I)> 

X(J+1> = X ( J ) *E I V 
5 I = Id 
K = L 

00 10 J = 1 1 L 
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QP = GK-CON JG ( G ( J ) ) 

GK = G*+C0NJG(G< J))-QP*X< J) 
A(J> = -R£AL(GK)*ENI 
8 ( J ) = AIMAG(GK)*£MI 
GK = G(K) 

10 K = K-l 

A ( L+l ) = -8(1) 

8 ( 1 ) = 0 . 

8 ( L+l ) = 0. 

return 

eno 


SUBROUTINE FFORM(NtF«X«CN»SN) 

FAST FOURIER TRANSFORM 

INPUT ARRAY F UITH REAL ANO IMAGINARY PARTS IN ALTERNATE CELLS 
REPLACEU by ITS FOURIER TRANSFORM 
COMPLEX F(1),X(1),W 
DIMENSION CN(1),SN(1) 

IF (N.LT.a) RETURN 
NS =' 1 
NR = 2 
NO a N 

11 00 10 K = NR,N 

IF (MOO(NO.K) .E8.0) GO TO 21 
10 CONTINUE 

21 NOSNQ/K 
NS = NS*K 
NR = K 

IQ = 0 
ID = 0 

00 22 I = l.NS 
00 24 J = 1 i NO 
L s MOO(IO+J,N) 

M s F ( L ) 

M a 0 

00 26 K s. 2, NR 
L s L+NO 
M s MOO ( M+IO «N) 

26 W c W+F(L)*CMPLX(CN(M4l) ,SN(M*1) ) 

24 X(IO+J) = W 
10 = IO+NO 

22 IQ = IO+NO 
NO = NO 

IF (N0.6T.1) GO TO 61 
00 32 K = 1«N 
S2 F(K) = X(K) 

RETURN 

61 00 60 K = NR,N 

IF ( MOO ( NO » K ) , EQ , 0 ) GO TO 71 

60 continue 

71 NOSNQ/K 
NS = NS*K 
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NR = < 

19 = 0 
10 = 0 

00 72 I = 1 « NS 
00 74 J = 1 «N0 
L s MOO ( XQ+J , N ) 

W = X(L) 

M = 0 

00 76 K = 2, NR 
L = L+NO 
M = M00( M+I D , N ) 

76 H = W*X(L)*CHPLX(CN(M+1) , SN ( M + l ) ) 
74 F ( IO+J ) = W 
10 = XO+NO 
72 19 s. IO + NQ 
NQ = NO 

IF (NO.GT.l) GO TO 11 

RETURN 

END 


FUNCTION INOEXR(X. ARRAY, N) 
OIMENSION ARRAT(l) 

S = ASS < X-ARr AY ( N) ) 

00 10 L s 1 • N 

IF <ABS(X.ARRAr<L) 1 .GT.S) GO TO 10 
INOEXR = L 
S = A3S ( X-ARR AY ( L ) ) 

10 CONTINUE 
RETURN 
ENO 


SUBROUTINE GtURB(DELMAX, QELBP, CPO. BCP ,SL«ROEL«RBCP) 

COMMON PHI (162i31I*FP( 162.31). A (31) .8(31) »C(31) * □ ( 31) *E(31) 

1 ,RP(31> ,RPP(31) ,R(3l),RS(3l) ,81(31) ,AA(162) ,B8(162> .Co (162) 

2 .SI(162) ,PHIR(162) »XC (162) ,YC(162> ,Fi*|(162) ,ARCL(162 ) ,DSUM(162) 

3 ,ANGOLO(162),XOLO(162)«YOLD(162)*ARCOLD(1 62). DELOL 0(162) 

COMMON /A/ Pl.TP.RAO.EM.ALP.RN.PCH.XP, TC . CHD, DPMI . CL.RCL. YR 

1 .XA.YA.TE.0T.0R,QELTH.0ELR,Ra.0CN.USN.RA4.EPSIL.9CRIT,C1.C2 

2 .C4.C5.CG.C7.9ET.3ETA,FSTM.XSEP,SEPlM.TTLE(4 ) . IM, N. (MjM. NN, NSP 

3 .IK.jK.I2.ITYP.MOOE.IS.NFC.NCT.NRN.Ns.IOIM.N2.N3.N4.NT.IXX 

4 , NPTS.LL.I.LSEP.34 
REAL MACH.MAchN.NE^. MACHS 

OIMENSION HP(162).SEPP(162),CPP(162),tHETAP(162). OELP( 162 ) 

1 . OELX ( 1 ) . TO ( 1 ) 

OIMENSION H(1 ) , THETA ( 1 ) «QELS(1 ) , XX(1 ) , YY( 1 ) . MACHNI 1 ) 

1 . SEPR(l) ,CPX(1) .OSOT(l) .S(l).MACHS(l) . ANGNEW(l) 

EQUIVALENCE (MACHN(l) «A(1) ) . ( H( 1) » pP ( 1.6) ) • ( THETA ( 1) ,FP( 1. 8) ) 

1 «(XX(1).FP(1,3 )),(YT(1).FP(1.5)).( DELS ( D.FP(l.lO) ) 

2. ( ANGNEW(l) ,FP(1,24) ) . ( SEPR ( 1 ) ♦ FP ( 1 . li* ) ) , ( CPX < 1 > » PHIR ( 1 ) > 

3 . (S(l) .FPU. 16)) • (MACHS(l) .FP(1.26) > . ( DSDT { 1 ) . FP ( 1 . 30 ) ) 

R . (OELX <1).FP( 1,12) >. (TO <1).FP( 1,20) ) 
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CP ( Q > = C5*UC4/<1.4C2*8*0n**C7-l.) 
asxtai r <c4-u.+a/c5)**u./c7n/c6 
MACHO) = SORT 0/<Cl-C2*8) ) 

OATA ISW/0/*COF/0./«XPLT/.5/,XFAC/100./ 

00 10 J = l.NN 
PHI ( IMM » J ) = PHI < 1. J)+0PHI 
10 PHI ( MM+1 . J ) = PHI ( 2» J) +0PHI 
IF (ISW.EQ.O) CALL GOPlOT(NRN) 

C COMPUTE ANO STORE CP CRITICAL 

CPX(MMU) = CPU.) 

C 1SX SET TO 1 FOR FSTM=1. AMD FSYM=3 IF FLOW HAS MOT BEEN COMPUTED 

isx = (Ncr'U)*(irrp-3)*Ass<FsrM'U0.) + .2 
IF (ISX. me. 1) SO TO 30 
M4 = M3 
FSTM = 0. 

XC(MM) = 1. 

ALP = 0. 

XSEP = AHAXKO. .XSEP-1. ) 

OS = A ( MM ) 

00 20 L = l.MM 
XOLO(L) = XC ( L ) 

YOLO<L> = YC(L) 

MACHN(L) = MACH ( A ( L ) ) 

20 CPX(L) = CP ( MACHM ( l ) ) 

IF <<A3S<YCIMM)-YC(1)).L£.1.E-5).AND.|IABS(NRN).GT.999)) SO TO 50 
GO TO llo 
30 00 40 L = 2.M 

U = (PHI(L+1.X)“PHUL-1.1))*OELTH-SI(l) 
as = <U*U)/FP<LU) 

MACHN(L) s MACH(OS) 

40 CPX(L) = CP ( MACHM ( L ) ) 

MACHN(MM) s ,5*(MACHN(2)4MACHNIM) > 

MACHNU) = MACHN(MM) 

CPX(l) = CP(MACHNU)) 

CPX(MM) = CPX(l) 

QS=aSX(CPX(MM) ) 

IF (FSYM.E8.S.) SO TO 60 

IF < (FSTm.LE. 5. ) .OR. ( ITTP.LE.2) ) GO To 50 
C ADVANCE PLOTTER PAPER TO THE NEXT BLANK PAGE 

IFIXPLT.GT..5) CALL PLOT ( 12 . 0*FL0 AT C I M T ( ( 20 .2+XPLT > /12. > > , o . » -3 ) 
XPLT = .5 
50 CALL GETCPTCOF) 

CALL GOPRIN (HP.THETAP.SEPP.CPP.DELP.xTRANS) 

IF (ISX.EQ.l) CALL EXIT 

ISW = 1 

RETURN 

60 00 70 L = 1 * MM 
70 CPP(L) = CPX(L) 

IF ( (ISW.EQ.O).OR, (FSYM.NE. 6. ) ) GO TO go 
c FINO the BASE PRESSURE 
DEL8P s 10. 

CPO = CPimACHN(IXX-I)) 

00 80 L = 1XX.M 
CPN = CP(MACHN(L) ) 

OELBP s AMINKOELBP.CPM-CPO) 



233 


80 CPO = CPN 

S CP = dCP4-RBCP*Oei.t3P 
90 ISW = 1 

PCH = ASS(PCH) 

IP <LSeP.GE.MP) GO TO 110 
C MOOIFY The HACH 0ISTRI3UT10N 
CPO = CP(MACHN(LSEP>> 

SEPX s XC(LSEP) 

SL = <8CP-CP0)/(XC(MM)-S£PX) 

00 100 L = LSEP.MM 

CPP ( L ) = CPO+SL*<XC<L)«S£PX> 

100 MACHN(L) = MACH<aSX(CPP<L) ) ) 

110 KQPIN = 1 
KQMAX = 1 
QPIIM = PACHN(l) 

QMAX = SM1N 

OARC = TP/FL0AT<NPTS-1) 

00 115 L = l.NPTS 

115 H ( L ) = PL0AT<L-1)*0ARC 
H(MPTS) s TP 

00 116 L = 1,M 

116 YY <L) = FL0AT<L-1)*0T 
YY(PH) = TP 

CALL SPLIF <MM,YY,AKCL*0SOT,CO.TD,3.0..3,0. ) 

CALL INTPL <NPTS,H,S,YY, AKCL , QSOT ,C0 , yO > 

S ( NPTS ) = ARCL(HM) 

CALL SPLIF (MN.ARCL.MACHN* OSDT »CO«TO,x«0.»3tO.) 
CALL INTPL<NPTS,S . MACHS, ARCL.MACHN.OSOT , CO, TO) 

CALL SPLIF <W.ARCL,XC,OSOr,CO.TD.3.0.«3,0.> 

CALL INTPL <NPTS,S,XX.ARCL,XC,OSDT,CO.TD) 

DO 120 L s 1 • NPTS 
IF (MACHS(L) .GT.OPAX) KQMAX = L 
IF <MACHS<L).LT.OMIN> KQMIN = L 
9MIN = AKlIN,i,MACHS(L) ,a«IN) 

QMAX S' APAX1 ( M ACHS( L ) » flPAX ) 

S£PR(L) = 0. 

H(L) s 0. 

OELS(L) = 0. 

120 THETA ( L ) r 0. 

IF (PC^.LT.O.) GO TO 1+0 

K9MAX = KaMIN+INoeXK<PcH.XX<KOPIN+l),NPTS-KQMIN) 

IF (KQMAx.GE.NPTS) call abort 

1L0 CALL NASHMC (KOMAX.NPTS) 

XTRANS = PCH 

IF ( PCH, LT. 0 ) XTRANS = XX(KOPAX) 

K930T = INOEXR<XTRANS,XX,KaMIN) 

IF <K930T.LE,1) CALL A30RT 
CALL NASHNC ( K9B0T . 1 ) 

FAC=S<*)/(SU)-S<2> ) 

TH£TA<U=FAC*TH£TA<2)4-<l.-FAC)*THETA<i*) 

H(1)=FAC*H<2)+(1.-FAC)*H(H) 

DELS(l)=H<i)*THETA<l) 
c COMPUTE the SKIN FRICTION DRAG 
9 = SORT < 9S) 

RT = ( C1-C2*QS)/ ( Cl"C2) 
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HBT = (M(NPTS)+l.)*(lt-C2*QS/Cl)-l. 

HBS = (H(i)+i. )*(1.-C2*8S/C1)-1. 

COF = 2.*THETA<NPTS)*Q**( .5*( HBT +5.))*RT**3 
COF = C0F+2.*THETA(l)*a**( .5«( HBB+5. ) )*RT**3 
IF (IsX.EQ.l) GO TO 200 

C MAKE DISPLACEMENT MONOTONE INCREASING ON THE UPPER SURFACE 
00 170 L = KQMAX.NPTS 

IF <D£LS(L+1) .LT.OELS(L) ) QELS(L+1) = OELS(L) 

170 CONTINUE 

LOWER SURFACE - FIN0 WHERE DELS STARTs DECREASING 
TREAT THE LOWER SURFACE LIKE THE UPPER SURFACE IF XSEP.LT. 0 
XPC = .GO 

IF (XSEP.LT.O.) XPC = 2. 

J = K9B0T 
180 U = J-l 

IF (0£LS( j-l) .LT.OELSI J) ) GO TO 185 
IF (U.GE.2) GO TO ISO 
GO TO 200 

186 IF (XX( J) .GT.XPC) GO TO 190 
OELS(J-l) = DELS ( U ) 

GO TO 180 

C DISPLACEMENT MUST STAY MONOTONE DECREASING 

190 J = J-l 

IF (DEES (J-l) .GT.DELS(J)) OELS(J-l) = OELS(J) 

IF (J.GE.2) GO TO 190 
C SMOOTH OELS IS TIMES 

200 IF (IS.LE.O) GO TO 220 
00 210 I = 1 . IS 
OLO = OELS(l) 

00 210 L r 3.NPTS 
NEW = OELS(L-l) 

OELS(L-l) = . 25* ( OLO+NEW+NEW+OELS ( L ) ) 

210 OLO a Ntw 
220 XPLT = XPLT+.5 

FAC=(S(NPTS-1)-S(NPTS) )/{S(NPTS-1)-S(mPTS- 2)> 
DELS(NPTS)=FAC*0ELS(NPTS-2)+(l.-FAC)*nELS(NPTS-l) 

IF ( ISX. EQ. 1 ) GO TO 260 
YFAC = 10./S(NPTS) 

OH = (H(KQMAX + 1)-H(KQ80T-1) )/ FLO AT ( 2«.KQMAX-K0MIN ) 

FAC = ARCOLD(NT)/S(NPTS) 

IFtXPLT.LT. 1.2) CALL SYMBOL (.33.8. 74*. 14. 55HDISPLACEMENT THICKNESS 
l AT EACH BOUNDARY LAYER 1 1 £R ATION , 270 . . 55 ) 

CALL PLOT (XPLT+XFAC*0£LS(1) ,10,5.3) 

00 230 L = l.NPTS 

CALL PLOT(XPLT*XFAC*QElS(L> , 1 0 . 5- YF AC*S < L > ,2) 

IF ( (L.GE.KQBOT) .ANO. (L.LE.KQMAX) ) H(l) = HtL-lH-OH 
230 YY ( L ) = S(U*FAC 

YY(NPTS) = ARCOLO(NT) 

C OELX will BE BOUNDARY layer DISPLACEMENT AT NT POINTS 

CALL SPLIF(NPTS, YY.OELS.OSDT.CO, TD.3,n. *3,0. ) 

CALL INTPLINT, ARCOLO.OELX, YY , DELS , OSDt , CO . TO ) 

C THE FOLLOWING ARE BEING COMPUTEO FOR FUTURE PRINT OUT 

CALL SPLIF(NPTS,S,OELS,OSUT,C0,TD,3,0.,3,0. ) 

CALL INTPL<MM, ARCL. OELP , S, DELS . OSOT. Cm TO > 

CALL SPLIF (NPTS,S.H,OSOT»CO,TO,3,0..x.O. ) 



CALL INTPL<NH*ARCL.HP.S.H*OSDT,CO.TO) 

CALL SPLJF ( NPTS , S. THETA ,OSOT,CO, TO, 3 , n. » 3. 0. ) 

CALL INTPL (MPWARCL.THETAP.S, THETA, DSoT. CO, TD) 

CALL SPLIF<NPTS,S. SEPR, OSDT , CO , TO, 3 , n . . 3, 0. ) 

CALL lNTPL<MM* ARCL. SEP=, S. SEPR . OSOT . Co* TD ) 

get the slopes for the OUTER AIRFOIL aT corresponding points 

00 240 L 3 1,MN 

OOEl 3 Ro£L*(oELP(L)”OSUH(L) ) 

OELP ( L I s OOEL 
OSJH(L) s OSuNID+OOEL 
240 S ( L ) = FAC*ARCL(L) 

S(im = ARCOLO t NT) 

CALL SPLIF(MM,S,FH,OSOT,CO,TO,3,0.,3,0. ) 

CALL INTplI NT * ARCOLO » ANSNEti , S »FM» QSQT .CO, TO) 

OELflAX = 0. 

00 250 L = 1 « NT 

OOEL = OELXILI-OELOLOIL) 

OELilAX = AMAX1 ( OELRAX, A8S ( OOEL ) ) 

Or = 3EL0LD(L)>ROEL*ODEL 
ANG 3 ,5*(ANG0LD(L)+ANGNEW(L) ) 

XX(L)sX0L0(L) 

rr(LjsroLO(L)+or/cos( ang) 

250 OELOLO(L) = OY 
ISS s IS 
IS - -X 

IF (ITYP.EQ.99) CALL GOPRIN ( HP , THETAP. SEPP. CPP, OELP, XTRANS ) 
CALL AIRFOL 
IS = ISS 
FSYM s T. 

RETURN 

260 00 270 L s l.MN 

ARCOLO<L) = ARCL(L) 

CPPIL) = CPX(L) 

270 ANGOLO(L) = F«(L) 

CALL SPUF(NPTS,S,OELS,OSOT,CO,TO,3»Q. *3,0. > 

CALL INTPL(MM. ARCL,0SUR,S,0ELS,QSDT.C0*TD) 

CALL: SPEIF(NPTS,S.SEPR.OSDT,CO. TO. 3 . 0 . . 3 . 0 , ) 

CALL INTPL (MM.ARCL.SEPP.S.SEPR.OSOT.ftO.TD) 

CALL SPLJF (NPTS, S. THETA, OSOT. CO, TO.3.0.. 3.0, ) 

CALL INTPL (HW.ARCL.THETAP.S, THETA, DSOT. CO, TD) 

CALL GOPRIN ( HP , THETAP , SEPP, CPP, OELP , xTRANS) 

NT s Ri“l 

CALL GETCP<COF) 

IF (JK.LE.-X ) CALL PLOT <0.,0.,999> 

CALL EXIT 
ENO 


SUBROUTINE GOPRIN (H, THETA* SEP* CPP. DEL, XTR) 

REAL «!ACHN 

COHHON PHI(162*31)»FP(162*31)»A(31),B|51),C(31)*D(31)»E(31) 

1 , RP ( 31 ) , RPP ( 31 ) , R ( 31 ) , RSI 31 ) , RI ( 31 ) , a A( 162 ) , 0B( 162 ) ,C0( 162 ) 

2 , SI ( 162 ) , PHIR ( 162), XC 1162 ),YC (162), F*l( 162) * ARCLI 162) , DSUMI 162 ) 
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3 , ANGOLO(l62) .X0L0U62) .YOLO (162) ,ARCoLO< 162) ,D£LOLO< 162) 

COMMON /A/ PI*TP,RAD,EM»ALP,RN»PCH,XP.TC. C HD* DP HI .CL.RCL.YR 

1 ,XA, YA,Te«OT,DR,DELTH,0ELR,RA,DCN,DSN*RA4.EPSlL,QCRIT,Cl,C2 

2 ,C4,C5,C6.C7,3ET«a£TA,FSYM,XSEP,SEPM,TTLE<4) .M.N.MM.NNiNSP 

3 , IK, JK, 17, IT YP, MODE. IS. NFC, NCY.NRN.Ng, I0IM,N2»N3,N4» NT. IXX 

4 , NPTS.LL.I.LSEP.MR 

DIMENSION OSOTU) ,FPP<1),FPPP<1> ,h<1> ,SEP<1),THETA<1)»CPP<1) 

1 » MACrtNt 1 ) , CP ( 1 ) , DEL ( 1 ) « BL ( 4 ) 

EQUIVALENCE <FPP(1),C0<1>> , CFPPP ( 1 ) ,S1 ( 1 ) ) . (DSDT (1)»FP(1,31)) 
EQUIVALENCE < MACHN ( 1 ) « A < 1 ) ) , < CP( 1 ) , PHtR ( 1 ) ) 

OATA lON,IOFF,Z,SEPMAX/l,0,0.,.004/ 

SN = -2./aRCL(NM) 

QMINsMACHNU) 

00 10 L s 1 * M 
QMIN=A*lNl<MACHN<L) ,Q«IN) 

10 ARCL<L> = AC0S(1.*SN*ARCL<L) J 
ARCL<MM> = PI 

CALL SPLlF (HH, ARCLtFM, OSOT , FPP»FPPP,l. 0 .*1,0.) 
osorai = fpp(d*i,e-5 

DSOT<MM) =: -FPP<MM)*l.£-5 

00 20 L = 1,MM 

FPP(LI s RAO*FM(L)-180. 

20 FPPP(L)= SN*0S0T(L)/AHAX1(1.E-S,SIN(ArCL(L) )) 

IF (FSVM.GT.5.) GO TO 120 
IF (FSTO.Ea.O. > GO TO 60 
WRITE • Ni» , 31o ) 

25 IF (FSTfl.EQ.O) WRITE (N4.320) TTLE 
WRITE (N4.360I IOFF 
DO 30 L = 1 , MM 

IF (MOO<l+ 1 «S 3 ).EQ.O) WRITE <N 4 , 360 ) TON 
30 WRITE (N<f , 260 ) L , XC < L ) , YC< L ) , FPP < L ) . FPPP< L ) , MACHN< L > , CP< L ) 

RESTORE QUANTITIES TO VALUES THEY HAD UPON ENTERING THIS ROUTINE 
40 00 50 L = 1 , MM 

ARCL<L» = <COS<ARCL<LI >-l.)/SN 
50 FP<L,NN) = 1. 

CALL COSi 
RETURN 

60 RNX s ,1*aINT< RN* l.E-5) 

IF < (A3S(tC(MM)«YC( 1) ) ,LE,l,E-5) .AND. ( I ABS ( NRN ) , GT • 999 ) ) GO TO 25 

WRITE <N4,390) TTLE, RNX 

WRITE < Nr , 330 ) IOFF 

IF < jK.GE.O ) GO TO 80 

CALL PLOT <2.,Q.,-3> 

ENCODE <30, 370. TTLE) EM.CL.TC 
CALL STMBOL <1.2, .7, .14, TTLE, 0,, 30) 

ENCODE <20, 380, TTLE) RNX 

CALL Sf«BOL <1.5,1.0,.14,TTLE,0.,20) 

CALL PLOt<SO.*XC<1) , 5. 0*50 . *YC < 1 ) ,3) 

DO 70 L = 2, MM 

70 CALL PLOT < 50 . *XC < L ) . 5 , OOO .* YC < L ) , 2 ) 

IPEN = 3 

80 DO 100 L = l, MM 

YS = yOLO(L)-OSUM<L)/COS(ANGOLD<L) ) 

YC < L ) * YS 

IF (JK.LE.-1) CALL. PLOT < 50 .*XOLO< L) ,5. 0+50. *YS, IPEN) 
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IPEN = 2 

IF !M00<|_*3,55) .Efl.O) WRITE (N4.S30) lON 
IF (XOLU(L> .GT.XTR) 60 TO 90 
TRANS = 1H 

IF (MACHN(L) .EQ.QMIN) TRANS = 10HST AGnATI ON 
IF < (XOLO(L-H) .GT.XTR) .OR# (XOLO(L-l) .gT.XTR) ) GO TO 85 
IF < (XOLO! L+ 2 ) .GT.XTR ). OR. (XOLO U-2).sT.XTR ) )TRANS= 10HTRANSI TION 
85 WRITE <N4,34o) XOLO < L ). YOLO! L )« YS , FPP ( L ), FPPP ( L >. cPP U- >• TRANS 
GO TO 100 

90 WRITE (N4.35D) XOLO ( L ). YOLO! L) • YS . FPP ( L ), FPPP (t) « CPP ( L) * THETA j L> 

1 . SEP ( L ) 

100 CONTINUE 

IF (XP.EO.O.) NRN a -IABS(NRN) 

XP = -ABS(XP) 

RETURN 

120 WRITE (N4.310) 

WRITE (N4.300) IOFF 
I = 1 

YSEP = ABS(XSEP) 

IF (XSEP.GT.O.) YSEP = 2. 

00 150 L = l.MM 

IF ( ("1001 L « 55 ) • EQ. 0 ) WRITE (N4.300) IOn 
IF (XC«L) .GT.XTR) GO TO 130 
TRANS = 1 H 

IF !MACHN(L).EQ.QMIN) TRANS = IOHSTAGnATION 
IF (!XC(L+1>. GT.XTR). OR. (XC(L-l). GT.X tR)) GO TO 125 

1 = -1 

YSEP = ASS(XSEP) 

IF ( (XC(L+2) .GT.XTR) .OR. (XC(L-2) .GT.XrR) ) TRANS -a: tOHTRANSITION 
125 WRITE (N4.290) L. XC ( L ) . TC ( L ) «FpP ( L ) . FPPP (L ) . MACHN ( L ) . 

1 CP<L),CPP(L),Z,Z. TRANS, L 
GO TO 15o 
130 BL<1) = 1 H 
BL ( 2 ) S' 1H 
8 L( 3) = 1H 
BL(<*)a 1H 

IF (L.EQ.USEP) BUI) = 2HLS 

IF! (SEP(L> .GT.SEPMAX) .AND. (SEPU + I) .Lt.SEPMAX) ) BL(2)= 2HCS 
IF (L.E 8 .IXX) BL(3)= 2HLM 

IF( (XC(L).GE. YSEP). AND. ( XC ( L+I ) . LT, YSfP) > BU4) =■ 2HLP 
WRITE (N4.280) BL . L ♦ XC { L ) , TC ( L> , FpP ( L ) * FPPP ( L ) * MACHN ( L) t 

1 CPU) ,CPP(L) ,THETA(L) ,OSUM(L> . SEP! L> , rt( L > ,DELU> ,L 
150 CONTINUE 
GO To 40 

260 F0RHAT(I14,2F9.5,2FB.2,2F9.4) 

280 FORMAT (3X, 4A2 , 15 .2F9. 5 ,F9,2 , F8 , 2 ,F8 . 4 , 2F9.4 , F9, 5, F9. 5 ,F9. 5 , FT. 2 , 

1E9.2.15) 

290 FORMAT ( Il6 , 2F9, 5 . F9. 2 , F8. 2 ,F8.4 , 2F9. 4 » 2F9. 5 , 8X , A10 . 7X, 15 ) 

300 FORMAT! I 1 , 14X1HL5X2HXS , 7X , 2HYS, TX , 3HAnG , 4X , 5HKAPPA , 4X . 9HMACH6X2HCP 
l ,6X3HCPl-,‘)X5HTHETA,5X4HQELS,&X3HSEP,&XlHH,6X2HQ0.6XlHL/> 

310 FORMAT(lHHl5X,40HLOWER SURFACE TAIL TO UPPER SURFACE TAIL ) 

320 FORMAT ( iHl/ 17X26HLISTIN6 OF COORDINATES FOR.2X.4A4) 

330 FORMAT! II mXlHX,SX,lHY.7X,2HYS,6X,3HAN6.4X,5HKAPPA,6X,2HCP.5X, 
l 5HTHETA.5X.3HSEP/) 

34 O FORMAT (F19.5.2F9.5,F8.2,F8,2,F9.4,4X.A10) 
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350 FORMAT < Fit . 5 . 2F9 . 5 . F8. 2 ,F 8. 2 * F9. 4 . 2F<}. 5 > 

360 FORMAT (I1/12X1HL,&X,1HX»8X,1HT,&X,3HaN&,4X5HKAPPA4X4HMACH6X2HCP/> 
370 FORMAT ( 2HH=,F4.3.4X,SHCL=«F5.S,4X,4mT/C=,F4.3) 

380 FORMAT (4H RN=,F4.1,9H MILLION ) 

390 FORMAT < 1H1/ 9X26HLISTING OF COOROINaTES F0R.2X.4A9 ,4X.3HRN=-, 
l F4.1.8H MILLION ) 

ENO 


SUBROUTINE NaSHMC (K1.K2) 

COnPUTZ THE BOUNORT LATER FROM POINT <1 TO K2 
K3 WILL BE THE SEPARATION POINT 

COMMON PHI (162.31) .FP( 162.31) .A(31» ,B(31) ,C(31) ,D(31),E(3l) 

1 ,RP(3I),RPPC31),R(31) ,RS( 31), RI< 31), aA( 162) ,Bd( 162) ,CO( 162) 

2 , SI (162) ,PHIR<162),XC(162) ,YC(162> »Fm(162) . ARCL ( 162 ) . 0SUM( 162 ) 

3 , ANG0LOU&2) .X0LDU62) , YOLO (1&2) , ARCoLO (162) ,OELOLO( 162) 

COMMON /A/ PI.TP.RAD.EM.ALP.RN.PCH.XP, TC.CHD.DPHI .CL.RCL.YR 

1 .XA.^A.TE.OT, OR , DEL TH « 0£LR , R A , UCN, OSN < R A4 , EpSlL « QCRI T , C I « C 2 

2 ,C4.C5.CS«C7i3ET,3ETA,FSYM.XStP,SePM.TTLE(4) . M, N. MM.NN , NSP 

3 .IK. jK,I2,IrrP,MOO£,IS,NFC.NCT,NRN.Ns,IDIM.N2»N3.N<ff NT.IXX 

4 , MPTS.LL.I.LSEP.M4 

DIMENSION M ACHS ( 1 ) ,H(1 ) , THET A ( 1 ) , SEPR ( 1 ) , S ( 1 ) , DELS ( 1 ) « XX ( 1 ) 
EQUIVALENCE(MACHSd) .FP11.28) ) • ( H( 1 ) , FP ( 1 , 6 ) ) , ( THET A ( 1 ) , Fp ( 1 , 8) ) 
EQUIVALENCE (SEPR(1) ,F?(1.14) ) . (DELS(I) .FP(1,10) ) . (Stl) , FP(1, 16)) 
EQUIVALENCE (XX(1) ,FP< 1,3) ) 
real MH.MHSQ.NJ.MACHS 

OAT A TR.RTH0,T£1,T£2,S£PMAX.PIMIN,PIMaX /. 3424, 320 . , 5.E-3 , 5. E-5, 
l .004,-1. 5. 1.E4/ 

GAM1 = . 5/C2 

CSIINF = C4 

INC 3 ISlSN(l.Ka-Kl) 

YQFP — 

IF ((XSEP.GT.O.).AND.(INC.LT.O)) YSEP = 1. 

SEPMAX = SEPM 
GE = 6.5 
L = K1 

OS = ABS(S(L)-S(L-INC) ) 

10 LP = L+INC 

MH = .S*(HACHS(U+' i IACHS<LP> t 

MHS8 s «H*MH 

CSIH = 1 . +C2*MHSQ 

OSOLO = OS 

OS = ABS ( S ( LP ) -S ( L ) ) 

OQOS = (MACHS(LP)-MACHS(L) )/(0S*MH*CStH) 

T = CSIINF/CSIH 
RHOH r T**GAM1 

NU = T4(1,+TR)F(RH0H*(T+TR) ) 

RTH 3 RN*MH/(EM*NU) 

IF (L.NE.Kl) GO to 30 
THETAH3 RTHO/RTh 
tht = thetah 

30 FC 3 l,Q+,066*MHSO-.00B*MH*MHS« 

FR = l.-.134*MHSQ*.027*«HSQ*MH 
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C 00 AT HOST 500 ITERATIONS 

00 140 J = 1.499 

RTAU= l./(FC*( 2.4711*AL0 G(FR*RTH*THETaH)+4.75)*1.5*6E*1724./ 
1 (GE*G£*200. )-16.B7) 

TAU = RTftU*RTAU 
H0 = l./(l.-GE*RTAJ) 

HH = (HB+1. >*(1.*.178*MHSQ)-1. 

SEP = -THeTAH*QQqS 
IF (SEP.LT.SEPMAX) SO TO 50 
IF ( XX (L ) ,LT . YSEP) SEP = SEPMAX 
50 PIE = HM*s£P/T AU 

PIE = AMAXKPIMIN, ANINMPIHAX.PIE) J 
G = 6.1*S9RT(PIE+1.81)-1.7 
T 2 = A3S(G-GE)/G£ 

GE = G 
0T2 = OTi 

0T1 = (HH*2.-MHSQ)*SEP*TAU 
IF (J.EQ.l) GO TO 110 
T'l = ABS( (QT1-0T2J/0T1) 

IF ((TI.LT.TE2).AN0.(T2.Lr.TEl>) GO To 130 
110 THETAH = THT+. 5*0T1*0S 
140 CONTINUE 

130 THETA ( LP ) = THT*0T1*0S 
SEP = -THETAH*OQOS 
THETAH = THETA(LP) 

THT = THETA(LP) 

SEPR(L) = <SEPR(L)*DS4-SEP*OSOLU)/(OS*OSOLO) 

SEPR(LP> = SEP 

H ( L ) = ( H(L)*OS+HH*OSOLO)/(OS*OSOLU) 

H(LP) = HH 

OELS(L) = H ( L ) *THE T A ( L ) 

L a LP 

IF (L.NE.K2) GO TO 10 

H<K2)=H(K2-INC)+(DS/OSOLO)*(H(K2-INC).H(K2-INC-INC) ) 

SEPR(«2> = 2.*SEPR(K2)-SEPR(K2-INC) 

DECS ( K2 > = H(K2)*THETA(K2> 

H(K1) = o. 

SEPR(Kl) = 0. 

RETURN 

ENO 


BLOCK OAtA 

COMMON PHI (162,31 ) ,FP( 162.31) ,A( 31) ,Bf 31) ,C( 31) ,0(31) ,E(31) 

1 , RP ( 31 >, RPP ( 31 ), R ( 31 ),RS( 31 ),KI( 31 ),aA( 162) , BB ( 162 ) , Co ( 162 > 

2 ,SI(162> ,PHIR( 162) ,XC( 162) »YC( 162) » Fv) ( 162) .ARCL( 162) ,DSUM(162> 

3 , ANG0L0(162) ,XOLQ(162> .YOLO (162) , ARCoLO ( 162 ) ,0EL0L0(162) 

COMMON /A/ PI.TP.RAO.E M » ALP. RN.PCH.XP, TC.CHO.OPHI.CL.RCL.YR 

1 , X A . Y A . TE.OT. OR . OELTH. OELR.RA 1 0CN.0SN.RA4. EPSIL . 9CRI T. Cl . C2 

2 , C4, C5.C6.C7.BET.be I A.FSTM.XSEP.SEPM, TTLE ( 4 ) , H , N . MM , NN , NSP 

3 , IK, JK.IZ.lTYP,M00£,IS.NFC,NCr,NRN,Ns,I0IM,N2.N3.N4,NT,IXX 

4 . NPTS.LL.I.LSEP, M4 

C ****I0IM MUST BE SET TO THE FIRST DIMENSION OF PHI**** 

DATA PI/ 3. 14159265358979/ , EM/. 75/ , ALP/O,/ . CL/100./ . 

1 PCH/.07/ , FSYM/1 . 0/ , RCc/1.0/ , BETA/O. 0/, RN/20.E6/ , 
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2 SEPM/.004/ , XSEP/.93/ « XP/Q.O/ * M/160/ , N/30/ , NRN/1/ . 

3 NFC/BO/ , NPTS/81/ . U./0/ , NS/1/ . IS/2/ * IOIM/162/ , MODE /l/ 
9 . JK/O/ i N2/2/ , N3/3/ . N4/<»/ t LsEP/l&l/ * 12/125/ t lTfP/1/ 

END 
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LISTING OF THE three OIMENSIONAL ANALYSIS PROGRAM J 0B/15/7R 


PROGRAM FL017( INPUT, OUTPUT, TAPEl,TAPEa.TAPE3, TAPER. 

1 TAP£5=INPUT.TAPE6=0UTPUT) 

three dimensional wing analysis in transonic flow 

USING SHEaREO PARA30LIC COORDINATES 
WITH STORASE ON THE DISC 

TAPES 1.2.3 ARE DISC FILES USED IN ROTATION TO STORE 

THE THREE OIMENSIONAL POTENTIAL ARRAY OURING THE CALCULATION 

tape r stores enough information to continue the calculation 
WITH ANOTHER computer run. if this is oesireo 
IT SHOULD THEN BE SPECIFIED AS A MAGNETIC TAPE 
COMMON G(193.26,R),SEPl, 

1 AO (193) ,SEP2,A1(193) . SEP3. A2 1 193) , SEPR . A3 ( 193) , SEP5, 

2 BO (26) .SEPS. 81(26) .SEP7, Ba(26 ) .SEP8.B3 (26) .SEP9. 

3 C0(33).SEP10.C1(33).SEP11,C2(33).SEP12.C3(33),SEP13. 

R SO (193. 33) .SEP1R.E01 129) ,s£P15, 20(129 ) .SEP16. 

5 I V( 193. 33) ,SEP17,ITEH33) , SEP1 8 . ITE2 ( 33 ) .SEP19, 

6 NX«NY.N2«KT£l.KTE2.KSYM,Sf;AL,SCAL2. 

' 7 YAW.CYAW.SYAW. ALPHA, C A . SA , FMACH . Nl.N2.N3.l0 

common/flo/ gkk 193 . 26 ) .bufi,gk 2 < 193 , 36 ) ,buf 2 , 

1 SXX(193) ,BJF3.SX2(193) , BUfR . SZZ ( 193 > ,BUF5, 

2 SX(193) .BUF6,SZ(193) ,BUF7.R0(193) .BUFB.RK193) ,BUF9, 

3 C(193) ,BuF10, 0(193 ) ,BUF11. Gl(193) , BuF12 , G2 ( 193 ) , 

R STRIP, PI, P2.P3, BETA, FR.IR, JR.KR.DG.IG, JG.KG.NS 

DIMENSION XS(2R1.11) . YS(2R1,11) »2S(il) ,SL0PT(11) .TRAIL (11) , 

1 XP(2R1) .YP(2R1) ,01(2R1) ,D2(2Rl) ,03(2R1) , 

2 X(193),Y(193) ,SV(193),SM(i93) ,CP(193) , 

3 CH0R0(33) ,SCL(33),SCD(33) ,SCM(33) , TITlE (20) , 

R FI T ( 3 ) ,COVO(3) ,P10(3) ,P20 ( 3) ,P30(3) ,BETA0(3) , 

5 STRIPQ(3),FHALF(3),NP(11) 

G IS reduced velocity potential 


ND 

NE 

IREAD 

IWRIT 

KPLOT 

IPLOT 

IST0P 

N1 

N2 

N3 

REWIND 1 
REWIND 2 
REWIND 3 
REWIND R 
JO 
RAO 


2R1 

193 

5 

6 
0 

-1 

2 

1 

2 

3 


= 0 


57.2957795130623 
L WRITE ( IWRIT , 600 ) 

WRITE (IWRIT, 2) 

2 FORMAT( lRHOPROGRAM FL017, 70X , 32HANT0NY JAMESON. COURANT INSTITUTE/ 

1 50H0THREE OIMENSIONAL WING ANALYSIS IN TRANSONIC FLOW, 

2 2BH USING PARABOLIC COORDINATES) 

REAO NEW oATA 

PROGRAM STOPS ON READING THREE BLANK CARDS 
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READ (IREA0.530) TITLE 
WRITE (IWRIT.630) TITLE 
REAO (IREA0.500) 

REAO (IREA0.510) FNX « FNY » FNZ, FPLOT , fCONT 
NX = FNX 

NY = FNT 

NZ = FNZ 

C IF NX = 0 STOP 

IF (NX.LT.l) GO TO 301 
KPLOT = FPLOT 

NXtNY.NZ ARE NUMBERS OF CELLS IN FIRST GRID 
KPLOT = 0 GIVES NO CALCOMP PLOTS 
KPLOT = 1 GIVES THREE DIMENSIONAL CAL c OMP PLOT 
KPLOT = 2 GIVES CALCOMP PLOTS AT SEPARATE SPAN STATIONS 
FCONT = x. INDICATES CONTINUATION OF PREVIOUS RUN 
L = 5*NX/1 6 

XMAX = 2.PL/NX 

L = 5*NZ/1S 

ZMAX - 2.*L/NZ 

XMAX AND ZMAX ARE MAXIMUM EXTENT OF MING IN COMPUTATIONAL SPACE 
REAO (IREAD.500) 

NM = 0 

READ RELAXATION PARAMETERS FOR EACH MESH 
11 NM = NM +1 

READ (IREAD.510) FI T < NM) , COVO ( NM ) » Plo ( NM > . P20 ( NM) t P30 ( NM ) , 

1 BETA0(NM),STRIP0(NM) .FHALF(NM) 

FITO IS MAXIMUM NUMBER OF ITERATIONS 
COVO IS TOLERANCE FOR CONVERGENCE 
PlO IS SUBSONIC RELAXATION FACTOR 

P 20 is supersonic relaxation factor 

P30 IS RELAXATION FACTOR FOk CIRCULATION 
BET AO DETERMINES AOOEO GST 

STRIP0 IS WIDTH OF REGION FOR HORIZONTAL . LINE RELAXATION 
FHALF NE 0 INDICATES that A IMESH REFINEMENT SHOULD BE PERFORMEO 
IF FHALF LT 0 INTERPOLATED POTENTIAL W ILL BE SMOOTHED 
ABS(FHALF) times AFTER THE MESH REFINEMENT 
IF (FHALF(NH) .NE.O.. ANO.NM.lt. 3) SO To 11 
FHALF ( 3 ) = 0. 

READ AEROOYNAMIC PARAMETERS. 

REAO ( IREAD , 500 ) 

REAO (IREAO.510) FMACH»YA«ALtCOD 
YAW = YA/RAQ 

ALPHA = AL/RAO 

FMACH Is FREE STREAM MACH NUMBER 

yaw is yaw angle in oegrees 

ALPHA Is ANGLE OF ATTACK NORMAL TO LE a OING EDGE IN DEGREES: 

COO IS ADDED PARASITE drag coefficient 
READ GEOMETRIC OATa 

SQUARE ROOT TRANSFORMATION REQUIRES STRAIGHT LEADING EDGE 
PLANFORM AND SECTION VARIATION ARE OTHERWISE UNRESTRICTED 
XS AND YS ARE COORDINATES OF WING SURFACE 
CALL SEOm (NO.NC.NP.ZS.XS*TS,SLOPT,T^AIL.XP,YP. 

1 XTEOtCHORDOtZTIPtlSYM) 

KSYM = ISVIM 

if- (Alpha. ne.o. » ksym =; o 
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KSYM = 1 INDICATES SYMMETRIC NONLIFTImS FLOW 
C YAW = COS ( YAW) 

SYAW - SIN(YAW) 

Cfl =■ CYAW*C0S{AUPHA) 

SA - CYAW*SIN<ALPHA) 

IF (FCONT.LT.l. ) GO TO 101 

READ PARAMETERS FOR CONTINUATION OF PREVIOUS CALCULATION 


REAO 

(4) NX, 

NY* 

MX 

= NX 

♦ 1 

MY 

= NY 

42 

MZ 

= NZ 

+1 


READ CURRENT VALUES OF POTENTIAL 
00 62 K=1,MZ 

READ (4) (<G<I.J*1)*I=1.MX>*J=1.MY> 

BUFFER OUT ( N3« 1 ) ( G( 1 . 1 » 1 ) * G ( MX * MY « 1 ) j 

IF (UNir<N3),GT.0.> GO TO 1 

BUFFER OUTINl'l) ISIlilil) *G(MX»MY»1) > 

GIVE UP IF- VALUES ARE NOT PROPERLY STORED IN DISC FILES 
IF (UNIT(Nl) .GT.O. ) GO TO 1 
62 CONTINUE 

READ (4) < E 0 ( K ) • K=K1 « K2 ) 

REWINO N3 
REWIND N1 
REWIND 4 

CALCULATE MESH POINTS OF STRETCHED COORDINATES 
AO , 80 * CO ARE MESH LOCATIONS 

Al.Bl.CX ARE MULTIPLIERS FOR FIRST DERIVATIVES 
A2.02.C2 AND A3,03,C3 ARE MULTIPLIERS FOR SECOND DERIVATIVES 
101 CALL COORO <NX.NY.NZ,XTEO*ZTIp,XMAX,Z»|AX,SY*SCAL*SCALZ, 

1 AX, AY, AZ, AO* Al, A2, A3,B0,Bi,82,83,C0,Cl,C2,C3l 
INTERPOLATE UNWRAPPED SURFACE AT MESH POINTS 

SO IS COORDINATE SURFACE CONTAINING WING SURFACE ANQ VORTEX SHEET 

IV s: 2 INDICATES POINTS ON WING surface 

IV = 1 INDICATES POINTS ON VORTEX SHEPT 

IV = 0 INDICATES POINTS ON THE SINGUL 4 R LINE 

of the square root transformation 

IV = -1 INDICATES POINTS JUST HEYONO EDGE OF WING OR VORTEX SHEET 
IV = *2 INDICATES POINTS IN THE FREE STREAM ON THE CUT 
IN THE SQUARE ROOT PLANES 

CALL SURF (ND,NE,NC,NX,NZ,KSYM,NP,KTE1,KTE2,ITEI,ITE2,IV, 

X YAW, SCAL, SC ALZ,ZS,XS,YS,SLOPT, TRAIL, 

2 SO.ZO* AO,CO*XP,TP,Ox,D 2,D5,X, YtIND) 

INO s 0 INDICATES: SPLINE FAILURE DUE TO BAO OATA.GIVE UP 
IF (INO.EQ.O) GO TO 291 
IF (FCONT.GE.l. ) GO TO 111 
NM =1 

NIT = 0 

GENERATE STARTING GUESS FOR NEW CALCULATION 
CALL ESTIM 

10 = 0 INDICATES OISC FAILURE, GIVE UP 
IF (10. £0,0) GO TO 1 
REWINO N3 
REWINO Ni 

111 WRITE ( I WRIT, 600 ) 

FCONT = 0. 
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MX 

= - 

NX *1 

MY 

= 

NY *2 

MZ 

S: 

NZ +1 

MIT 

S 

FIT(NM) 

KIT 

S 

MIT +2 -NM 

IF (NM 

.£9.3) 

KIT = 10 

JIT 

= 

0 

COV 

= 

COVO(NM) 

STRIP 

s- 

STRIPO ( NM ) 

BETA 

s 

SETAO(NM) 


WRITE ( IWRIT , 112 ) 

112 FORMAT(49HOCHOROWISE CELL DISTRIBUTION IN SQUARE ROOT PLANE. 

1 46H AND MAPPED SURFACE COORDINATES AT CENTER. LINE/ 

2 15H0 X ,15H SURFACE HEIGHT) 


LZ = NZ/2 

DO 114 1=2. NX 

114 WRITE (IWRIT, 610) AO ( I ) , SO ( I ,L<£ > 

WRITE (IWRIT, 116) 

116 format ( isho te location ,ish power law ) 

WRITE (IWRIT, 610) XMAX.AX 
WRITE (IWRIT, 600) 

WRITE (IWRIT, 118) 

US FORMAT (46HONORMAL CELL DISTRIBUTION In SQUARE ROOT PLANE/ 
1 15H0 T ) 

KT a: NT +1 

00 120 J=2,KY 

120 WRITE (IWRIT, 610) 30(U) 

WRITE (IWRIT, 122) 

122 FORMAT ( 15H0 SCALE FACTOR, 15H POWER LAW ) 

WRITE (IWRIT, 610) SY.AT 
WRITE (IWRIT, 600) 

WRITE (IWRIT, 124) 

124 FORMAT(27HOSPANWIS£ CELL; DISTRIBUTION/ 

1 15H0 Z ) 

DO 126 K=2,NZ 

12b WRITE (IWRIT, 610) CO(K) 

WRITE (IWRIT, 128) 

128 FORMAT ( 15H0 TIP LOCATION. 15H POWER LAW ) 

WRITE (IWRIT, 610) ZMAX.AZ 
WRITE (IWRIT, 600) 

WRITE (IWRIT, 132) 

132 FORMAT(19H0ITERATIVE SOLUTION/ 

1 43H0STRIP WIDTH FOK: HORIZONTAL LINE RELAXATION) 


WRITE (IWRIT, 610) STRIP 
WRITE (IWRIT, 134) 

134 FORMAT ( 15H0 NX ,15H NT 

WRITE (IWRIT, 640) NX,NY,NZ 
CALL SECONO(T) 

WRITE (IWRIT, 660) T 
WRITE (IWRIT, 136) 

136 FORMAT ( 15H0 MACH NO ,15H Ya« 

WRITE (IWRIT, 610) FMACH.YA.AL 
WRITE (IWRIT, 138) 

136 FORMAT(10H0ITERATI0N,15H CORRECTION ,4H 

1 1SH RESIDUAL ,4H 


,15H NZ ) 


, 15H ANG OF ATTACK) 


I ,4H d ,4H K , 
I ,4H J ,4H K , 
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2 10H CIRCULATN , 10H REL FCT 1,1QH REL FCT 2.10H REL FCT 5. 

3 10H SETA ,10H SONIC PTS) 

141 NIT s NIT +1 

dll e JIT +1 

PI s plO(NM) 

P2 = P20(NM) 

P3 = P30(NM) 

IF (NIT.LE.10) PI = 1. 

IF (NIT.LE.10) P3 = 1. 

UPDATE POTENTIAL BT RELAXATION 

each iteration is one step in artificial time 
equivalent time dependent equation is 

(1. -M**2)*GSS ♦GMM + GNN +TERMS In GST,SMT,GNT AND GT 

CALL MIXFLO 

10 = 0 INDICATES DISC FAILURE, RETURN TO PREVIOUS ITERATION 

IF (I0.EQ.0) GO TO 151 

JO = 0 

REN INO Ni 

REWIND N2 

UPOATEO VALUES ARE STORED IN DISC FILES 1,2,3 IN ROTATION 
SET FILE NUMBERS FOR NEXT ITERATION 


N 

= Nl 

Nl 

= N2 

N2 

= n3 

N3 

3 N 


WRITE NUMBER OF ITERATIONS NIT, 

LARGEST CORRECTION OG AND ITS LOCATION IG,JG,KG, 

LARGEST RESIDUAL fr and its location ir,jr,kr, 

CIRCULATION EO , RELAX ATI ON PARAMETERS P1,P2,P3 AND BETA, 

AND NUMBER OF SUPERSONIC POINTS NS 

WRITE ( I WRIT, 650 ) NI T* OG, I G, JG.KG, FR, IR , JR, KR , EO ( LZ > , 

1 P1,P2,P3,BETA,NS 

EVERY KIT CYCLES SAVE CURRENT VALUES ON TAPE 4 
TO ALLOW RESTART IN CASE OF MACHINE FaILURE 
IF (JIT. EQ. KIT) GO TO 251 

IF (NIT.LT.MIT.ANO.ABS(OG).GT.COV,AND.ABS(OG).LT.10.) GO TO 141 
STOP ON ITERATION COUNT OR IF ERROR MEETS TOLERANCE 
OR IF ITERATIONS 01 VERGE . 

GO TO 16i 

jo = i indicates successive disc failures. give up 

151 IF (JO.EQ.l) GO TO 1 
REWIND Nl 
REWINO N2 
JO = 1 

reset file numbers for previous iteration 

N = N3 

N3 = N2 

N2 = Nl 

Nl = N 

GO TO 141 

generate and write aerodynamic parameters for each span station 

REAO FROM THE OISC AND PROCESS SLICES OF THE G ARRAT POR FlXEO Z, 
REPRESENTING VALUES OF POTENTIAL ON X.T PLANES 
CONTAINING SUCCESSIVE WING SECTIONS 
161 LX = NX/2 ♦! 
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CALL SECONO(T) 

WRITE ( IWRIT ,660 ) T 
WRITE ( IWRIT ,600 ) 

C READ FIRST THREE SLICES OF POTENTIAL ftRRAT FROM DISC' FILE 

00 162 L=1.3 

BUFFER IN ( Nl 1 1 ) ( G ( 1 , 1 , L ) * G ( MX , NY * L ) > 

C RETURN TO PREVIOUS ITERATION IN EVENT OF OISC FAILURE 
IF, (UNIT (Nl).GT.O.) GO TO 151 
162 CONTINUE 

K = 2 

c increment z 

171 K = K 41 

IF (K.EQ.MZ) GO TO 191 

c shift slices of potential arrat 

00 172 U=l«Mr 
00 172 Irl,MX 
G( I, J,l) = G(I. J»2) 

172 G(I,J,2) = G ( I • Jt 3 > 

C READ SLICE OF POTENTIAL ARRAY FROM OIsC FILE 
BUFFER IN (Nl,l) (G(1,1,3)«G(MX,MY«3) ) 

C RETURN TO PREVIOUS ITERATION IN EVENT OF OISC FAILURE 
IF (UNIT(Nl) .GT.O. ) GO TO 151 
IF (K.LT.KTE1.0R.K.GT.KTE2) GO TO 171 
Z = SC ALZ*CO ( K ) 

11 = ITEl(K) 

12 = ITE2 ( K ) 

CALCULATE SURFACE SPEED. SV.MAC* NUMBER SM, PRESSURE COEFFICIENT CP 
ANO COORDINATES X«Y OF WINS SECTION 
CALL VELO (K,2,SV.SM,CP.X, Y) 

chord i k ) = xdl) -xax) 

C CALCULATE SECTION lIFT.ORAS ANU MOMENT COEFFICIENTS 

CALL FOKCF (Il,I2.X.Y»CP.AL.CHOR0(R), n . .SCL(K) iSCD(K) tSCM(K) ) 

IF (KPLOT. GT.O. AND. K.GT.KTEl) GO TO 1 r 5 
WRITE ( IWRIT i 600 ) 

WRITE (IWRIT, 182) 

182 FOR MAT(2AH0 SECTION CHARACTARISTICS/ 

1 15H0 MACH NO ,15H YAW ,1SH ANG OF ATTACK) 

WRITE (IWRIT. 610) FMACH, YA, AL 
WRITE (IWRIT, 184) 

18*» FORMAT ( 15H0 SPAN STATION, 15H CL ,15H CO , 

1 15H CM ) 

185 WRITE (IWRIT, 610) Z « SCL < K ) , SCO ( K ) . SCM ( K ) 

C IF KPLOT = 0 LIST AND PRINT-PLOT CP 

IF (KPLOT. EQ.O) CALL CPLOT ( II * 1 2 , FMacH, X , Y , CP > 

IF (KPLOT. NE. 2) GO TO 171 

C IF KPLOT x 2 GENERATE CAlCOMP PLOT OF SECTION CP 

CALL GRAPH (IPLOT, II, I2tX.Y,CP»TITLE, fMACH. YA.AL, 

1 Z,SCL(K) ,SCO(K) .CHORDO) 

IPLOT = 0 

GO TO 171 

c calculate total lift ,orag and moment coefficients 

191 CALL T0TF0R(KTE1,KTE2, CHORD, SCL, SCO, SCM, CO, SCALZ. ,25, 

1 CL,CDltCMP,CMR,CMY) 

COi x C Y AW*C01 

CO x cOO + CUl 
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VL01 = 0. 

IF ( ASS ( C01 ) .GT.l.E-6) VLD1 = CL/C01 
VLO = 0. 

IF (ABS(CO) .GT.l.E-6) VLD = CL/CD 
WRITE (IWRIT, 600 ) 

REWINO N1 
CALL CHARTT 
WRITE (IWRIT,600) 

WRITE ( IWRIT , 192 ) 

192 FORMAT (21H0WING CHARACTARISTICS/ 

1 15H0 MACH NO ,I5H TaW ,15H ANG OF ATTACK) 

WRITE ( I WRIT , 610 ) FMACH,YA,AL 
WRITE (IWRIT, 194) 

194 F0RMATU5H0 CL ,15H CO FORM ,15H CD FRICTION , 

1 15H CO , 15H L/D FORM ,15H L/O ) 

WRITE (IWRIT, 610) CL , C01 , COO , CO, VLOl , VLD 
WRITE (IWRIT, 196) 

19& FORMAT( 15H0 CM PITCH ,15H CM ROLL ,15H CM YAW ) 

WRITE (IWRIT, 610) CMP,CMR,CMY 
REWINO N1 

IF (KPLOT.LT.l) GO TO 201 

C IF KPLOT GT o GENERATE THREE DIMENSIONAL CALCOMP PLOT 

CALL THREEOt IPLOT, SV, SM « CP, X,Y» TITLE, Y A » AL , VLD, CL, CO, CHOROO > 
IPLOT = 0 

C 10 = 0 INOICATES DISC FAILURE , RETURN tO PREVIOUS ITERATION 

IF (I0.EQ.0) GO TO 151 
C STOP ON OPERATOR COMMAND 

201 IF (ISTOP.EQ.l) GO TO 501 

IF (FHALF (NM) ,EQ,0, ) GO TO 1 
C REFINE GRID IF FHALF N£ 0 


NX 

= NX 

♦ NX 

NY 

= NY 

+ NY 

NZ 

= NZ 

♦ NZ 


C RECALCULATE MESH LOCATIONS ON REFINED GRIO 

CALL COORO (NX,NY,NZ,XTE0,ZTIP,XMAX,2mAX,SY,SCAL,SCALZ, 

1 AX,AY,AZ,AO,Al,A2,A3,BO,8i,B2,B3,CO,Cl,C2,C3) 

C INTERPOLATE UNWRAPPED SURFACE ON REFInEO GRID 

CALL SURF (N0,NE,NC,NX,NZ,KSYM,NP,KTE1,KTE2,ITE1,ITE2,IV, 

1 YAW,SCAL,SCALZ.ZS,XS, YS,SuOPT» TRAIL, 

2 SO.ZO, AO.CO.XP* YP.01,D2.D3,X,Y»IND> 

C INO = 0 INOICATES SPLINE FAILURE DUE rO BAD OATA.GIVE UP 
IF (IND.EQ.O) GO TO 291 
C INTERPOLATE POTENTIAL ON REFINED GRID 

CALL REPIN 

C 10 = 0 INOICATES DISC FAILURE , RETURN TO PREVIOUS GRIO 

IF (IO.EO.O) GO TO 221 
REWINO N1 
REWINO N2 

NSMOO = -FHALP(NM) 

C IF FHALF lT o SMOOTH INTERPOLAf ED POTENTIAL ABS(FHALF) TIMES 

IF (NSMOO. LT.l) GO TO 211 
00 202 N=i, NSMOO 
CALL SMOO 

C 10 = 0 INOICATES OISC FAILURE, RETURN TO PREVIOUS GRIO 

IF (IO.EO.O) GO TO 221 
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REWIND (Ml 
202 REWIND N2 

c reset file numbers 

211 N = N1 

IM1 = N2 

N2 = N3 

M3 = N 

C INCREMENT NUMBER OF MESH 

NM = NM +1 

NIT = 0 

SO TO 111 

c RESTORE PREVIOUS SRIO 

221 NX = NX/2 

NY = NY/2 

NZ = NZ/2 

C RECALCULATE MESH LOCATIONS UN PREVIOUS GRIO 

CALL COORD ( NX , NY. NZ, XTEO , ZTIP, XMAX, Z.v|AX , S Y , SCAL, SCALZ, 

1 AX.AY.AZ,AO.Al,A2,A3,80,Bi,B2,B3,CO.CltC2,C3) 

C INTERPOLATE UNWRAPPEO SURFACE ON PREVIOUS GRID 

CALL SURF (N0.NE*NC,NX.NZ*KSYi%NP.KTei.KTE2.IT£l,ITE2,IV. 

1 YAW, SC AL.SCALZ.ZS.XS* YS.SLOPT t TRAIL « 

2 SO.ZOi AO.CO,XP»YP,U1,02,D5»X,Y.IND> 

C INO a 0 INDICATES SPLINE FAILURE OUE T 0 BAO DATA, GIVE UP 
IF (INO.EO.O) GO TO 291 
GO TO 191 

c write three copies of; information needed to restart on tape 9 

231 Kl a KTEl -1 

K2 a KTE2 +ITE2(KT£2> -NX/2 

00 252 M=1 1 3 

WRITE (4) NX,NY,NZ,NM,K1,K2,NIT 

00 262 K=1 «MZ 

BUFFER IN (Ni,l) (G(l,l,l),G(MX,MY.l) ) 

C RETURN TO PREVIOUS ITERATION IN EVENT OF DISC FAILURE 
IF (UNIT(NI).GT.O.) GO TO 281 
262 WRITE (4) ( ( G ( I , J, 1 J , 1=1 , MX ) , Jal , MY ) 

REWINO Nl 

WRITE (4) (EO'(K) ,KaKl»K2> 

ENDFILE; 4 
252 CONTINUE 
REWINO 4 

c allow operator to stop calculation 

CALL SSWTCH<i,ISTOP> 

IF: (ISTOP.EQ.U GO TO 161 
JIT a o 

IF (NIT.lT. MIT. An0.ABS(0G),GTiC0V>An0.ABS(D6),LT. 10.) GO TO 141 
GO TO 161 
281 REWINO 4 
GO TO 151 

291 WRITE ( IWRIT .600 ) 

WRITE (IWRIT, 292) 

292 FORMAT ( 24H08AD OATA, SPLINE FAILURE) 

GO TO 1 

C TERMINATE CALCOMP FILE 

30l IF (KPLOT.GT.O) CALL PLOT ( 0 .. 0. , 999 ) 

STOP 
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500 FORMAT(IX) 

510 FORMAT < 8E1 0 . 7 ) 

530 format * 20 a 4 ) 

600 FORMAT ( 1H1 ) 

610 F0RMAT(F12.4,7F15.4) 

620 FORMAT ( 8El5» 5 ) 

630 FORMAT (1H0«20AR) 

640 FORMAT* IB, 7X15) 

650 FORMAT(I10,£15.5,3I4,E15,5,3I4,5F1Q.5.I10) 

660 FORMAT * 15H0C0MPUTING TINE, Flo . 3, 10H SECONDS) 
ENO 


SUBROUTINE GEOM *NO. NC,NP,ZS,XS,TS,suOPT, TRAIL, XP, TP, 
l XTE0,CHORD0*2TIP,Is7M) 

GEOMETRIC DEFINITION OF WING 

XS AND YS ARE COORDINATES OF WING SURFACE 

THE SECTIONS AT DIFFERENT SPAN STATIONS ARE ALIGNED 

SO THAT THEIR SINGULAR POINTS AS DEFINED BY THE DATA 

LIE ON A STRAIGHT LINE 

THE WING IS UNWRAPPED ABOUT THIS LINE 

BY A SQUARE ROOT TRANSFORMATION TO PARABOLIC COORDINATES 
DIMENSION . XS*N0,U,YS*N0,1),2SU),Sl0PT*I),TRAIL*1), 

1 XP(1),YP(1),NPU) 

IREAO = 5 

IWRIT = 6- 

RAO = 57,2957795130823 

REAO (IREAO, 500) 

READ (IREAO, 510) FNC 

NC IS NUMBER OF SPAN STATIONS AT WHICH THE SECTION IS DEFINED 

IF NC LT 2 THE GEOMETRY IS ASSSUMEO TO BE UNCHANGED 

FROM THE PREVIOUS CASE 

IF (FNC.LT.2.) RETURN 

NC = FNC 

ISYM = 1 

XTEO = 0. 

CHOROO = 0, 

K =1 

11 REAO ( IREAU, 500 ) 

REAO (IREAO, 510) ZS ( K) , CHORO, THICK , Al , FSEC 
ALPHA = AL/RAD 

zs is span station 

profile is scaled to a length equal to chord 

ANO ROTATEO THROUGH THE TWIST ANGLE AL 

MEASUREO normal TO THE LEA0IN6 EDGE In DEGREES 

ITS THICKNESS CHORO RATIO IS REDUCED 3Y THE FACTOR THICK 

FSEC s: 1 INDICATES THAT A NEW PROFILE IS OEFINEO 

BY A TABLE OF COORDINATES 

FSEC s 0 INDICATES THAT THE PROFILE IS DERIVED 
FROM THE EXISTING TABLE OF COORDINATES 
IF (K.Gt.I.ANO.FSEC.EQ.O. ) GO TO 31 
REAO UREAD.500) 

REAO ( IREAO, 510 ) FSYM.FNU.FNL 
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NU = FNU 

NL = FNL 

N = NU +NL -1 

FSYM = 1 INDICATES SYMMETRIC PROFILE 
FOR WHICH ONLY THE UPPER SURFACE IS R£AO 
NU AND NL ARE NUMBERS OF UPPER AND LOyER SURFACE POINTS 
REAO ( I READ « 500 ) 

REAO TRAILING EDGE INCLUDED ANGLE AND SLOPE* 

AND COORDINATES OF SINGULAR POINT 
REAO ( I READ « 510 ) TRL. SLT* XSING , YSING 
REAO ( I READ* 500 ) 

C REAO UPPER SURFACE COORDINATES 

00 12 I=NL*N 

12 REAO ( IREAO * 510 ) XP(I),YP(I> 

L = NL +1 

IF (FSYM.GT.O.) GO TO 15 
REAO (IREAO, 500) 

c reao lower surface coordinates 

oo m 1=1, NL 

REAO (IREAO, 510) VAL.DUM 
J = L -I 

XP(J) - VAL' 

14 YP ( U ) = OUM 

GO TO 21 

15 J = L 

DO 16 I = NL * N 

d = d -1 

XP(d) = XP(I) 

lb YP ( d ) = -YP(I) 

21 WRITE ( IWRIT ,600 ) 

WRITE (IWRIT, 22) ZS(K) 

22 F0RMATd6H0PR0FILE AT l = ,Fi0.5/ 

1 15H0 TE ANGLE ,15H TE SLOPE ,15H X SING , 

2 15H Y SING ) 

WRITE (IWRIT, 610) TRL, SLT, XSING , YSING 
WRITE (IWRIT, 24) 

24 FORMAT ( 15H0 X , 15H Y ) 

00 26 1=1, N 

2b WRITE (IWRIT, 610) XP(I),YP(I> 

C SCALE AND ROTATE PROFILE 

31 SCALE = CHORO/(XP(l) -XP(NL)) 

XX = XP(NL) ♦(XSING -XP(NL) )*THICK 

YY = YP(NL) +(YSING -TP( NL) > *THICK 

CA = COS ( ALPHA ) 

SA = SIN( ALPHA) 

00 32 1=1, N 

XS ( I , K ) = SCALE*( ( XP( I > -XX)*CA +THICK* ( YP ( I ) -YT)*SA) 

32 YS ( I , K ) = SCALE*(THICR*(YP(I) -YY)*CA -(XP(I) -XX)*SA) 

SLOPT(K) = THICK*SLT -TAN(ALPHA) 

TRAIL(K) = THICK*TRL/RAO 

NP ( K ) = N 

C NP IS NUMBER of points DEFINING PROFILE 
CHORDO = AMAXKCHOROO, CHORD) 

XTEO = AMAX1(XTE0,XS(1,K) ) 

C CHORDO And XTEO are MAXIMUM CHORD and rearmost extent of wing 
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IF (FSYM. LE.O.. OR. ALPHA. NE.O.) ISYM = 0 
C ISYM = 1 INDICATES SYMMETRIC WINS 

WRITE IIWRIT. 52) ZS(K) 

52 FORNAT(27H0SECTION DEFINITION AT Z = .F10.5/ 

1 15H0 CHORO .15HTHICKNESS RATIO, 15H ALPHA ) 

WRITE < IWRIT ,610 ) CHORO, THICK , AL 
K = K +1 

IF (K.LE.NO GO TO 11 
ZO - .5*<ZS<1> +ZS<NC)) 

00 62 K=l,NC 

62 ZS ( K ) = ZS ( K ) -ZO 

ZTIP = ZS(NC) 

C ZTIP IS TIP LOCATION AFTER WINS HAS BEEN CENTEBEO AT Z. s o. 

RETURN 

500 FORMAT(IX) 

510 F0RMAT(8E10.7> 

600 FORMAT ( 1H1 ) 

610 F0RMAT(F12.A,7F15.A) 

ENO 


SUBROUTINE COORO ( NX, NY , NZ , XTEO , ZTIP . XHAX , ZMAX , SY , SCAL « SCALZ , 

1 AX.AY.AZ.AO, A1,A2, ft3 , BO ,B1 , B2 , B3 , CO , Cl ,C2, C3 ) 

SETS UP STRETCHED PARABOLIC AND SPANWlSE COORDINATES 
STRETCHING LAW HAS FORM X = XX*XX LT C* 

X = C +(XX -C)/(l. -((XX -0/(1. -C) >**2)**AX,XX GT C 

WHERE AX DETERMINES POWER LAW 

in computational space xx ranges from *i. to x.« 
yy ranges from o. to i.,zz ranges from -i. to i. 

AO, BO, CO ARE MESH LOCATIONS 

Al.Bl.Cl ARE MULTIPLIERS FOk FIRST DERIVATIVES 
A2,B2,C2 AND A3,B3«C3 ARE MULTIPLIERS FOR SECOND DERIVATIVES 
IF; OGI and OGII are first and SECOND DIFFERENCES 
GX = A1*DGI AND GXX = A2*(0GII ♦A3*D5l ) 

DIMENSION AO(l>,Al(l> , A2 ( 1 ) , A3( 1 ) , Bo ( 1 > ,B1(1) ,B2(1) *B3(1) , 

1 C0(1),C1(1),C2(1),C3(1) 

KY = NY ♦! 

DX = 2. /NX 

OY = 1 , /NY 

DZ = 2./NZ 

C SELECT POWER LAWS 

AX = .5 

AY = .5 

AZ = .5 

S Y s 5 

C SY SCALES Y SPACING RELATIVE TO X SPACING 

SCAL = XTEO/(.50001*XMAX*XMAX) 

SCALZ = ZTIP/(1.000001*ZMAX> 

V2 = ( DX/DY ) **2 

W1 = SCAL/SCALZ 

W2 = \ W1*0X/DZ ) **2 

C GENERATE X MESH 

DO 12 1=2, NX 



252 


C 


c 



00 

= (I -1)*0X -1. 


8 

= 1. 


IF (A8S(00) .GT.XMAX) GO TO 13 


00 

= DO 


01 

= 1. 


02 

GO TO It 

= 0. 

13 

IF (00. LT 

.0.) B = -1, 


A 

= 1. -((00 -B*XMAX>/(1. 


C 

= A** AX 


0 

= (AX +AX -l.)*(l. -A) 


00 

= B*XMAX +(00 -B*XMAX)/C 


01 

= A*C/(1. +0) 


02 

= -(AX *AX) * ( DO -B*XMAx> 


1 

*(3. ♦0)/((l. 

It 

AO ( I ) 

= 00 


Al(I) 

= .5*0l/0X 


A2( I ) 

= 01*0l 

12 

A3 ( I ) 

= ,5*0X*02 


generate 

Y MESH 


00 22 J=2 

.KY 


OD 

= (KY - J ) *0 Y 


A 

= 1. .00*00 


C 

= A**AY 


0 

= (AY +AY -l.)*(l. -A) 


01 

= A*C/( (1. *0) *SY ) 


BO ( J ) 

= SY*O0/C 


01( J) 

= . 5*Ol/OY 


82 < vl ) 

= 01*01* Y2 

22 

B3( J) 

= -AY*OD*OY*(3. *0)/((l. 


GENERATE Z MESH 
00 32 K=2,NZ 



DO 

= 

(K -l)*OZ -1. 


B 

= 

1. 


IF ( ABS ( DO ) • 

GT.ZMAX) GO TO 33 


DO 

= ' 

00 


01 

s 

1. 


02 

GO TO 3t 

= 

0. 

33 

IF (DO.LT 

.0. 

) a = -l. 


A 

= 

1. -{(00 «B*ZMAX > / ( 1 » 


C 

= 

A**AZ 


0 


(AZ +AZ -l.)*(l. -A) 


DO 

= 

B*ZMAX +(00 -B*Z«AX)/C 


01 

= 

A*C/(1, +0) 


02 

1 

= 

-(AZ ♦AZ)*(DD -B*ZMAx ) 
* ( 3. +0>/((l. 

3t 

CO ( K ) 

= 

00 


CKKI 

= 

• 5*0l*Wl/DZ 


C2IK) 

= 

01*0l*K2 

32 

C3(K) 

s 

,5*OZ*02 


RETURN 

END 


-XMAX) ) **2 


+D) *A* (1» 


«.0)*A) 


.ZMAX) )**2 


♦D ) *A* ( X • 


-XMAX)**2) 


-ZMAX ) **2 ) 
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SUBROUTINE SURF ( NO, N£, NC, NX .NZ.KSYm, NP, KTE 1 . KTE2 t ITE1 . ITE2. I V , 

1 YAW.SCAL.SCALZ.ZS.xS.YS.SLOPT, TRAIL, 

2 SO,ZO,AO,CO.XP,YP,D1.02,D3,X,Y«INO> 

INTERPOLATES MAPPED WINS SURFACE AT M^SH POINTS 
INTERPOLATION IS LINEAR IN PHYSICAL PLANE 
AND QUADRATIC IN TRANSFORMED PLANE Y - 0, 

XS ANO YS ARE WINS COORDINATES IN PHYSICAL SPACE 
AT SPAN STATIONS ZS 

So IS COORDINATE SURFACE CONTAININS WING SURFACE ANO VORTEX SHEET 
IN TRANSFORMED SPACE 

ZO IS STREAMWISE PROJECTION ON SINGULAR LINE 
OF TRAILING EDGE ANO DOWNSTREAM SIDE euGE 
USED IN DETERMINATION OF: STRENGTH OF yORTEX SHEET 
IV s: 2 INDICATES POINTS ON WING SURFACE 

IV = 1 INOICaTES POINTS ON VORTEX SHEET 

IV - 0 INOICATES POINTS ON THE SINGULAR LINE 

OF THE SQUARE ROOT TRANSFORMATION 

IV = -1 INOICATES POINTS JUST BEYOND EDGE OF WING OR VORTEX SHEET 

IV = -2 INOICATES POINTS IN THE FREE STREAM ON THE CUT 

IN THE SQUARE ROOT PLANES 
KTE1 AND kT£2 ARE « INDICES AT WING TIPS 

ITEl AND ITE2 ARE I INDICES AT LOWER AND UPPER TRAILING EDGE 

INTERPOLATION IS LINEAR IN PHYSICAL PLANE 

DIMENSION SO(NE.l) .XS(NO.l) .YS(NU.l) , ZS ( 1 ) , SLOPT (l).TRAIL(l), 

1 A0(1> ,C0(1) .20(1) .XPU) » YPll) .01(1) ,02U> ,D3<1) , 

2 X<1> . Y ( 1 > .IV(NE.l) ,NP(1> .iTEl(l) ,ITE2(1) 

PI = 3.14159265558979 

TYAW = .5*SCAL*TAN( YAW) 

OX = 2. /NX 

LX = NX/2 +1 

MX = NX +1 

MZ = NZ +1 

VORTEX AND EDGE POINTS ARE REPRESENTED BY SETTING IV TO IVo OR IV 1 

if wing is symmetric vortex and eoge points do not exist 

ANO ALL POINTS OFF WING SURFACE ARE TREATED AS FREE STREAM POINTS 
BY SETTING IVO AND IV1 TO -2 
IVO = 1 -KSYM -KSYM -KSYM 

IVl = -1 -KSYM 

C INITIALIZE IV FOR POINTS OUTSIDE WING AND VORTEX SHEET 

C AND POINTS ON THE SINGULAR LINE 

DO 2 K=1.MZ 
ITEl(K) = MX 
ITE2 ( K ) = MX 

DO 4 1=1, MX 
IV(I.K) = -2 
4 SO(I.K) = 0. 

2 IV(LX.K) = 0 
K =1 

K2 =2 

UK = K 41 

IF (K.EQ.MZ) GO TO 91 
Z = SC ALZ*C0 ( K ) 

IF (Z.GE.ZS(l)) GO TO 13 
C Z IS SHORT OF FIRST SPAN STATION 

KTE1 = K +1 
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C TRY' NEXT VALUE OF Z 

GO TO 11 

13 IF (Z.ST.ZS(NC) ) GO TO 81 
K2 = K2 -1 

C Z IS ON WING 

C INTERPOLATE profile between aojacent span stations 
21 K2 = K2 +1 

K1 = K2 -1 

R2 = 1 • 

IF <ZS(K2) -Z) 21,25.23 

23 R2 • = (Z -ZS(K1J )/(ZS(K2) -ZS(Kl)) 

25 R1 = 1. -R2 

C = R1*XS ( 1 » Kl ) +R2*XS(i,K2) 

CC = SQRTUC +C)/SCAL) 

C C IS INTERPOLATED choro 

C CC IS CHORO IN S9UARE ROOT PLANE 

C DETERMINE I INDICES AT TRAILING EDGE 

00 32 1=2. NX 

IF <UQ<I) +.5*0X> .LT.-CC) II = I 41 
IF I ( AO ( I > -.5*0X1. LT.CC) 12 = I 

32 CONTINUE 

ITEl(K) = II 

ITE2 ( K ) = 12 

C SCALE CHORD SO THAT TRAILING EDGE COINCIDES 

C WITH NEAREST MESH LOCATION 

CC = A0(I2)/CC 

C PROJECT TRAILING EDGE POINT ON SINGULAR LINE 

ZO(K) =Z -TYAW*A0(I2)*A0(I2) 

C GENERATE TRANSFORMED PROFILE AT SPAN STATIONS Kl AND K2 

C ANO CORRESPONDING PROFILE AT INTERPOLATED SPAN STATION K 

C SET KK TO INDEX OF FIRST SPAN STATION 

KK = Kl 

P = R1 

41 N « NP<KK> 

9 = SQRT(XSU.KK)/C)/CC 

C SCALE MESH LOCATIONS FOR INTERPOLATION OF PROFILE 
DO 42 1=2, NX 

42 X(I) = Q* AO ( I ) 

C APPLY SOuaRE ROOT TRANSFORMATION TO PROFILE 

C USING CONTINUITY TO OBTAIN CORRECT BRANCH 

ANGL = PI +PI 

U =1. 

V = 0. 

DO 44 1=1. N 

ANGL = ANGL 4ATAN( (U*YS(I»KK) -V*XS(I,KK)) 

1 / ( U*XS ( I » KK ) + V*YS(I,KK)n 

R = S9RT(XS<I,KK)**2 +YS U , KK') **2 > 

U = XS(I.KK) 

V = YS(I.KK) 

R = SORT( ( R 4RT/SCAL) 

XP(I» = R*COS( .54ANSLT 

44 YPdl = R*SIN< ,5*ANGL) 

C DETERMINE SLOPES T1 ANO T2 OF LOWER AnO UPPER SURFACE 

C AT TRAILING EDGE TO PROVIDE END CONDITIONS FOR SPLINE 

ANGL = ATAN< SLOPT ( KK) ) 
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ANGLX 

= 

ATAN( YS(X,KK)/XS(X«KK) ) 

ANGL2 

= 

ATAN(YS(N,KK)/'XS(N«KK) ) 

ANGLX 

= 

ANGL -• 5t( ANGLX 

-TRAIL(kK) ) 

ANGL2 

= 

ANGL • » 5* ( ANGL2 

♦TRAIL(kK) ) 

TX 

S 

TAN(ANGLX) 


T2 


TAN{ AN3L2) 



C FIT SPLINE TO UNWRAPPEO PROFILE 

CALL SPLIF <I.N,XP,YP,OX,02,03.X,TI,X.T2,0,0.,INO> 

C INTERPOLATE SPLINE AT 1ESH LOCATIONS 

CALL INTPL <11*12. X.Y,X.N.XP,YP, OX, 02, 03,0) 

C COHTlUlJt: UNWRAPPED PROFILE BEYOND LOWE« TRAILINS EOSE 
XI = , 25*XS ( X « KK) 

A = SLOPT(KK)*<XS(l,KK> -XI) 

B = 1 . / ( XS ( 1 , KK ) -XI) 

ANGL = PI «.PI 

U =1. 

V =0. 

1*1 =11-1 

00 52 1=2, 1*1 

XX = ,5*SCAL*X(I)**2 

0 = B* ( XX -XI) 

TY = YS(1,KK) ♦A*ALOG(U)/D 

ANGL = ANGL +ATAN< <U*YY -V*XX)/(U*XX +V*YY)) 

R = SORT ( XX**2 +YY**2) 

U = XX 

V = YY 

R = SORT ( <K *R)/SCAL) 

52 Y < I ) = R*SIN(.5*ANGL) 

C CONTINUE UNWRAPPED PROFILE BEYOND UPPER TRAILING EDGE 
A ' = SLOPT<KK)*(XS(N,KK) -XX) 

8 = X./(XS(N,KK) -XI) 

ANGL; = 0. 

U =1. 

V =0. 

M =12 ♦! 

DO 54 I=N,NX 

XX = ,5*SCAL*X(I)**2 

0 = B*(XX -XX) 

YY = YS ( N, KK ) ♦A*ALOG<O)/0 

ANGL = ANGL +ATANI (U*YY -V*XX)/(U*XX +V*VY>) 

R = SORT ( XX**2 +YY#*2) 

U = XX 

V S YY 

R = SORT ( (R +R)/SCAL> 

5H Y ( I ) = R*SIN( ,5*AN6L) 

C AOO CONTRIBUTION TO PROFILE AT INTERPOLATED SPAN STATION 
Q = p*Q*CC*CC 

00 62 1=2, NX 

62 SO ( I , K > = SO ( I , K ) +0* Y ( I ) 

IF (KK.E0.K2) GO TO 71 

C SET KK TO INDEX OF SECONO SPAN STATION 
KK = K2 

P = R2 

GO TO 4X 

C SET IV TO INOICATE SURFACE POINT 
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71 00 72 1=11.12 

72 IV(I,K) = 2 

C SEARCH FOR POINTS ON VORTEX SHEET AT I INOICES OFF WING SURFACE 

M =11-1 

DO 74 1=2, M 

C DETERMINE STREAMWISE PROJECTION ON SINGULAR LINE 
ZZ = Z -TYAW*AO(I)*AO(I > 

SET IV To INDICATE VORTEX POINT 

IF PROJECTION IS 8EY0N0 PROJECTION OF UPSTREAM TIP 
IF (ZZ.GE.ZO(KTEl) ) IV(I,K) = IVO 
74 CONTINUE 

M =12 +1 

DO 76 I = M , NX 

DETERMINE STREAMWISE PROJECTION ON SINGULAR LINE 
ZZ = Z -TYAW*A0tIJ*A0(D 

SET IV TO INDICATE VORTEX POINT 

IF PROJECTION IS SEYONO PROJECTION OF UPSTREAM TIP 
IF IZZ.GE.Z0<KTE1) ) IV(I,K> = IVO 
76 CONTINUE 

KTE2 = K 

GO TO 11 

Z IS BETONQ LAST SPAN STATION 
SEARCH FOR POINTS ON VORTEX SHEET 
B1 00 82 1=2, NX 
C DETERMINE STREAMWISE PROJECTION ON SINGULAR LINE 

ZZ = Z -TYAW*AO(I)*AO(I) 

C SET IV TO INOICATE VORTEX POINT 

C IF PROJECTION IS WITHIN PROJECTION OF DOWNSTREAM TIP 

IF (ZZ.LE.ZS(NC) .ANO.ZZ.GE.ZOJRTEl J ) iV(I.K) = IVO 
82 CONTINUE 
GO TO 11 

91 N = KTE2 

IF (YAW.LE.O.) GO TO 93 

C PROJECT DOWNSTREAM SIDE EDGE POINTS- On SINGULAR LINE 

10 = ITEKKTE2) +1 

00 92 1=10 • LX 
N = N +1 

92 ZO(N) = SCALZ*CQ(KTE2) -T Y AW*AO (i ) *A 0 t I ) 

93 I = ITEKKTEl) 

ZO(KTEl-l) = SCALZ*C0(KTE1-1) -TYAw*AO(I)*AO(I) 

ZO ( N+l ) = SCALZ*C0(KTE2+1> 

C LOCATE POINTS JUST BEYOND EDGE OF WINS OR VORTEX SHEET 

DO 102 K=2*NZ 
00 102 I=2.NX 

IF (IV(I,K).GT.O) SO TO 102 

IF (IV(I+1'K+1),GT.O.OR.IV<I-1'K4-1).Gt> 0) iV(ItK) = IVl 
IF (Iv(I+1«K-1).GT.O.OR.IV<I'-1iK-1>.Gt.O) IV(I.K) = IVl 
102 CONTINUE 
RETURN 
ENO 
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SUBROUTINE ESTIM 

generates INITIAL ESTIMATE OF POTENTIAL 

SUCCESSIVE SLICES OF THE' G ARRAY .REPRESENTING VALUES OF POTENTIAL 
ON X«Y PLANES AT SUCCESSIVE VALUES OF Z,ARE GENERATED 
AND STORED ON TWO OISC FILES TO PROVIoE BACK UP 
IN EVENT OF SUBSEQUENT OISC FAILURE 
COMMON G(193.26,4) ,SEPl, 

1 AO (193) ,SEP2,A1(193) , SEP3 . A2 < 193 ) , SEP4, A31 193 ) , SEP5. 

2 BO (26) ,SEP6,B1(26> tSEP7, 62(26) ,SEP0,83(26> ,SEP9, 

3 C0(33)*SEP10«C1(33)« SEP11, C2 ( 33 ) , SEP12«C3(33 ) « SEP13, 

4 SO (193, 33) ,SEP14,E0(129),sEP15,Z0(129),S£P1&, 

5 IV( 193,33) ,SEPl7,ITEl(33) . SEP18 , ITE2 ( 33 ) ,SEPl9, 

6 NX,NY,NZ,KT£1,KTE2«KSYM,ScAL,SCALZ« 

7 YAW.CYAW.SYAW, ALPHA, CA,SA.FMACH,Nl *N2,N3, 10 


MX 

s 

NX 

♦ 1 

KY 

= 

NY 

+ 1 

MY 

s 

NY 

42 

MZ 

= 

NZ 

+ 1 


SET The G ARRAY TO ZERO 
00 12 1=1,193 
00 12 Jsl , 26 
00 12 K=1 ,4 

12 G ( I , J , K ) = o. 

K - 1 

SET VALUES OF POTENTIAL AT DUMMY POINTS BEHIND BOUNOAKY 

21 00 22 1=2, NX 
G ( I , KY*1. 1 ) = 0. 

IF (IV(I,K),LT,2) GO TO 22 

IV r: 2 INDICATES POINT ON WING SURFACE 

SET POTENTIAL BELOW SURFACE TO SATISFY BOUNDARY CONOITION 
OS I = SO < 1+1 ,K) -S0(I-1,K) 

OSK s SO ( I , K+l ) -S0(I,K-1) 

SX = A1 ( I ) *OSI 

SZ = C1(K)*0SK 

U = C A*AO ( I ) ♦SA*S0(I«K) 

W = SY AW 

FH = AO ( I ) * AO ( I ) +SO(I,K)*SO(I,K) 

V = BKKYIMl. +SX*SX ♦FH*S?*SZ ) 

G(I,KY*1,1) = G(I,KY-1,1) 

1 - ( CA*SO ( I ,K ) -SA*AO(I) *U*SX +FH*W*SZ)/V 

22 CONTINUE 

C WRITE SLICE OF POTENTIAL ARRAY ON TWO OISC FILES 

BUFFER OUT ( N3 , 1 ) ( G ( 1 , 1 , 1 ) , G( MX , M Y, 1 ) ) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT(N3).GT.O.) GO TO 41 
BUFFER OUT ( N1 , 1 ) (G(1,1,1),G(MX,HY,1)) 

C GIVE up IN EVENT OF OISC FAILURE 

IF (UNIT(NI).GT.O.) GO TO 41 

c increment z 

K = K ♦! 

IF (K.LE.MZ) GO TO 21 

C SET TRAILING JUMP £0 IN POTENTIAL TO ZERO 

Kl = KTE1 -1 

K2 = KTE2 ♦ITE2(KTE2) -NX/2 

00 32 K=K1,K2 
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32 £0<K) 


C 

SET 10 

TO 


10 



RETURN 


c 

SET 10 

TO 


41 10 

RETURN 

END 


= 0 . 

INDICATE SUCCESSFUL COMPLETION 
= 1 

INDICATE: DISC FAILURE 
= 0 


SUBROUTINE MIXFLO 

UPDATES POTENTIAL 8T RELAXATION USING ROTATED DIFFERENCE SCHEME 
EQUIVALENT TIME DEPENDENT EQUATION IS 

(1. -M**2)*GSS ♦ GMM + 6NN ♦•TERMS In GST,6HT,GNT AND GT 

SUCCESSIVE SLICES OF THE G ARRAY • REPRESENTING VALUES OF POTENTIAL 

ON X-Y PLANES AT SUCCESSIVE VALUES: OF Z, ARE READ 

FROM ONE DISC FILE, UPQaTEU, AND WRITTEN ON A SECOND OISc FILE 

THREE SLICES ARE REQUIRED FOR COMPUTATION 

A FOURTH SLICE IS USED AS A BUFFER For OISC OPERATIONS 

INPUT ANO OUTPUT BY BUFFER IN AND BUFFER OUT PROCEED IN PARALLEL 

WITH COMPUTATION 

IF THE BUFFER OPERATION IS NOT YET FINISHED, 

THE IF UNIT TEST OOES. NOT RETURN CONTROL TO THE CENTRAL PROCESSOR 
UNTIL US COMPLETION, PREVENTING PREMATURE PROCESSING 
COMMON G(193.26*4).SEPl, 

1 AO (193) ,SEP2, Al(193) ,S£p3. A2<193) ,SEP4, A3(193) ,SEp5» 

2 BO (26) ,SEP6,81(26) ,SEP7,B?(26) ,SEP6, 83(26) ,SEP9, 

3 CO (33) ,SEP10,C1{33) , SEPll , C2 ( 33 ) , SEP12, C3 l 33 ) , SEP13, 

4 SO(193,33),SEP14,EO(129),SEP15,ZO(129),SEP16, 

5 I V ( 193, 33 ) , SEP17, I T El ( 33 ) . SEP18 , ITE2 ( 33 ) , SEP19, 

6 NX,NY,NZ,KT£l,KTE2,KSYM,ScAL,SCALZ, 

7 Y AW, C YAW, SYAW, ALPHA, CA,SA.FMACH,N1,N2,N3,I0 
COMMON/FLO/ GK1 ( 193 , 26 ) , BUF1 , GK2 ( 193, ?6 ) , BUF2 , 

1 SXX ( 193 ) ,BJF3,SXZ(193) ,BUf4,SZZ(193) ,BUF5, 

2 SX(193) ,BUF6,SZ( 193) , BUF7.R0 (193) , BUF8 , K1 ( 193 ) , BUF9, 

3 C(193) ,BUF10, 0(193 ) ,3UF11.G1( 193) , BUF12 , G2 ( 193 ) , 

4 STRIP,P1,P2,P3,BETA,FR,IR. JR,KR,DG,IG, JG.KG.NS 


COMMON/SWP/ 

G10(26) ,SPAl,G20(2b) , 
I1,I2,K,L,N0,LX,MX,KY 

LX 

s 

NX/2 +1 

MX 

= 

NX +1 

KY 

= 

NY +1 

my 

s 

NY +2 

TYAW 

= 

•5*SCAL*SYAW/CYAW 

OX 

s 

2. /NX 

T1 

= 

OX*OX 

AAO 

5 

l./FMACH**2 ♦, 2 

Ql 

s 

2, /Pi 

02 

= 

1./P2 

FR 

= 

0. 

IR 

= 

0 

JR 

= 

0 

KR 

= 

0 



on on o n noon ononn 
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OS = 0. 

IG 3 0 

JS s 0 

KG so 

NS = 0 

FR,IR,JR A NO KR ARE VALUE AND LOCATION OF LARGEST RESIDUAL 
OG'IG.JG AND KG ARE VALUE ANO LOCATION OF LARGEST CORRECTION 
NS IS NUMBER OF' SUPERSONIC POINTS 

START AT THIRD ROW IF FLOW IS SUPERSONIC AT INFINITY , 

REQUIRING CAUCHY OATA 
K1 = 2 

IF (FMACH.GE.l. ) K1 = 3 

DEFINE CENTRAL STRIP OF X-Y PLANE FOR HORIZONTAL LINE RELAXATION 
EXTENDING FROM I = U TO I = 12 WITH wIOTH DEFINED BY STRIP 
STRIP s 0. ELIMINATES THE CENTRAL STRiP 
STRIP s i. ELIMINATES THE OUTER STRIPS 
F s ABS< ,5*STRIP*NX> 

L 3 F 

IF (L.EQ.NX/2) L = L -1 

11 = LX -L 

12 = LX +L 

IF (L.E8.0) 12 = LX -1 

REAO FIRST THREE SLICES OF POTENTIAL ARRAY FROM FIRST DISC FILE 
00 2 L=1i3 

BUFFER IN ( N1 « 1 ) ( G (1 » 1 . L ) t G { MX , MY . L ) ) 

GIVE UP IN EVENT OF OISC FAILURE 
IF <UNIT(N1J .GT.O. ) GO TO lOl 
2 CONTINUt 

SAVE OLD VALUES OF POTENTIAL AT UPSTReAM Z STATIONS 
TO GENERATE CORRECT MIXEO SPACE-TIME DERIVATIVES 
00 4 J=1,MY 
DO 4 1=1, NX 
G ( I < J, 4 ) = GdtJtl) 

GKUI, J> 3 G ( I , J, 1 ) 

4 GK2<I,J) 3 G ( I « J* 1 ) 

K 3 2 

L 3 2 

NO = KTE1 -1 

IF (K.EQ.Kl) GO TO 11 

AOVANCE' an extra slice if the flow is supersonic at infinity 
WRITE FIRST SLICE OF UPOaTEU POTENTIAL ARRAY ON SECOND DISC FILE 
BUFFER OUT ( N2 * 1 ) (G<1,1,4) ,G<MX,NY,4) > 

C GIVE UP IN EVENT OF OISC FAILURE 
IF (UNlTtN2).GT.O.) GO TO 101 

C REAO FOURTH SLICE OF POTENTIAL ARRAY FROM FIRST OISC FILE 

BUFFER IN <N1«1) < G < 1 * 1 « 4 ) , G ( MX , MY, 4 ) ) 

GO TO 5l 

C WRITE SLICE OF UPOATEO POTENTIAL ARRAY ON SECOND DISC FILE 

11 BUFFER OUT ( N2 « 1 ) < G < l , 1 « 4 ) , G ( MX , MY , 4 ) ) 

Z s SC ALZ*CO ( K ) 

00 12 Jsi.MY 
GIO(U) = G ( 12 , J , 2 ) 

G201J) = G ( 12-1 » J, 2 ) 

G30 ( J) 3 G ( 1 1 , J , 2 ) 

12 G40t J) = G ( 11+1 , U, 2 ) 
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OETERMlNE FIRST ANO SECOND DERIVATIVES OF SURFACE SLOPE 
FOR US£ IN RELAXATION SUBROUTINES YSWEEP ANO XSWEEP 
00 22 1=2, NX 

DSI = S0(I+1.K) -SOd-liK) 

OSK * SO(I, K+l ) -S0(I,K-1) 

DSII s SO d + 1 * K ) -SOd,K> -SQ(I,K) *SOd-l«K) 

1 +A3( I ) +OSI 

DSKK = SO(I, K + l) -SO(I,K) -SO(XtK) +S0d*K-l) 

1 +C3 ( K ) *OSK 

OSIK = SO ( 1+1 ,K+1 ) -S0(I-1, K+l) -SO ( I+l, K-l ) +S0(I-1,K-1) 

SXd) = A1CI)*0SI 

SZd) = Cl ( K ) +0SK 

SXXd) = A2 (I ) + OSII 

SZZd) = C2 ( K ) *OSKK 

22 SXZd) = T1*A1(I)*CI(K)*0SIK 

UPDATE THE CENTRAL STRIP BT HORIZONTAL LINE RELAXATION 
IF d2.GT.Il> CALL YSWEEP 
GIVE UP IN EVENT OF DISC FAILURE 
IF (UNIT (N2).GT.O. ) GO TO 101 

REAO SLICE OF POTENTIAL ARRAT FROM FIRST OISC FILE 
IF (K.LT.NZ) BUFFER IN <N1«1> (G(X, 1,i*I ,G(MX,MY,4> ) 

UPOATE THE OUTER STRIPS BY VERTICAL LINE RELAXATION 
• IF (I1.GT.2) CALL XSWEEP 
IF (K.NL.KTES.OR.YAW.LE.O.) GO TO 51 
DETERMINE NEW JUMP EO IN POTENTIAL ALONG SIDE EDGE 
OF DOWNSTREAM TIP 
10 = IT£l(K) +1 

00 <*2 1 = 10, LX 

M = NX +2 -I . 

E = G ( M»KY,2) “G(I,KY«2) 

NO = NO +1 

42 £0(N0) s EO(NO) +P3*(E -£0(NO)) 

C GIVE UP IN EVENT OF OISC FAILURE 

51 IF (UNlT(Nl).GT.O.) GO TO 101 

IF (K.EG.NZ) GO TO 61 

c shift slices of potential array 

00 52 J=1,MY 

DO 52 1=1, MX 

G ( I , J , 1 ) = G < I , J, 2 ) 

G< I ,J, 2 ) = G(I , U, 3) 

G( I , J, 3) = G (1 , J, 4 ) 

52 G ( I , U, 4 ) = G ( I , J , 1 ) 

C INCREMENT Z 

K = K +1 

GO TO 11 

C WRITE LAST TWO SLICES OF POTENTIAL ARRAY ON SECONO OISC FILE 

61 00 62 L=2 , 3 

BUFFER OUT ( N2 , 1 ) ( G( 1 , 1 , L ) ,G ( MX , rt Y ,L> ) 

C GIVE UP IN EVENT OF OISC FAILURE 
IF ( UNIT (N2I.GT.0.) GO TO 101 

62 CONTINUE 

FR s 1 , 2*FR/AA0 

C SET 10 TO INDICATE SUCCESSFUL COMPLETION 
10 =1 
RETURN 
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C SET 10 TO INDICATE OISC FAILURE 

101 10 =0 
RETURN 
END 


C 


SUBROUTINE ysweep 
ROW RELAXATION 

COMMON G<193,26,4) ,SEPl, 

AO (193) ,SEP2,Al(193) , SEP3 . A2 ( 193 ) .SEP* , A3 ( 193) ,SEPS, 
BO (26) ,SEPS *81(26) , SEP7 , B2 ( 26 > * SEp8 , B3 ( 26) ,SEP9, 
C0(33)«SEP10,C1(33)« SEP11 , C2( 33 ) , SEP12, C3 ( 33),SEP13« 
SO(193.33>.SEPm,EO(129),sEP15,ZO(129),SEP16, 
IV(193.33) .SEP17.ITEK33) ,SEP1B*ITE2(33) ,SEP19, 
NX,NY,NZ,KT£l,KTE2,KSYM,ScAL,SCALZ, 

YAW,CYAW» SYAW« ALPHA « CA« SA.FMACHtNl , N2 » N3» 10 
COMMON/FLO/ GK1 ( 193, 26 ) , BUF1 , GK2 ( 193. s>6 ) . BUF2 , 

SXX(193) ,3UF3,SXZ(193)*BUP»(.SZZ(193) ,BUF5, 

SX(193) ,BUF6,SZ(193) , BUF7 . RO ( 193 ) ,6uF8, Rl ( 193 ) ,BUF9, 
C(193) ,BUF10, 0(193) » BUF11 . G1 ( 193 ) ,BUF12,G2(193> , 
STRIP, PI, P2.P3* BETA, FRtIR. jR, KR , OG, IG, JG , KG, NS 
COMMON/SWP/ G10(26),SPA1,G20(2&) , SPA2 , G30 ( 26 ) ,SPA3 , G40 ( 26 ) , 

1 Il,I2,K,L,N0,LX,MX,KY,MV,rl,AA0,Ql,82,Z,TYAW 

U1 =2 

IF (FMACH.GE.l, ) J1 = 3 


C(I1-1) = 0. 
0(11-1) = 0. 
00 12 1 * 11,12 


RO(I) 

s 

l. 



Rl(I) 

= 

l « 



Gi(I) 

2 

G( I, Jl-l.L) 



12 G2d> 

= 

G ( 1 , 1 , L ) 



J 

s 

J1 



13 

= 

12 



31 BC 

= 

-T1*B1 ( J ) *C1 ( K ) 


00 32 

1=11,13 



AS 

.2 

-Ti*Aid >»ai( j) 


AC 

2 

T1*A1(1)*C1(K) 


YP 

2 

so ( i , k ) +ao(j) 


A 

2 

1. -RO(I) 

♦AO (I )*A0 (I ) +YP*YP 


H 

2 

RO ( I ) /A 



FH 

2 

RO ( I ) *A 



OGI 

2 

Sllfl, J,L) 

-Gd-1»J,L) 


OGJ 

2 

G(I,J+1*L) 

-Gl(I) 


DGK 

s 

G ( I , J , L+l ) 

-GK1(I,J) 


OGI I 

2 

GII+1. JiL) 

•GdiJtl ) *G( I , J,L) 

♦G( I»1,J,L) 

1 


♦ A3 ( I ) *0G1 



OGUJ 

= 

S ( I , J + l , L ) 

•G ( I , J, L ) >G(I, J,L) 

+G( I , J-l , L ) 

1 


-B3 ( J ) *DG J 



OGKK 

2 

Gd.J.Ld) 

-Gd.J.L) -G<I»J,L) 

♦ G ( I , J«L-1 ) 

1 


+C3 ( K ) *OGK 



OGI J 

s 

G( !♦!» J*l , L) 

”G( I“1 , J+l , i_ ) 



1 -G ( 1*1 , J-l « L ) +G(l-l*U-l,L) 



1 

OGJK 

1 

GY 

U 

V 

w 

QXY 

00 

AA 

HZ 

F 

AV 

UU 

VV 

MW 

UV 

vw 

uw 

AXX 

AZZ 

R 

X 

2 

AXT 

AYT 

AZT 

A 

AXT 

AYT 

AZT 

IF <00. GE 

AXX 

AYT 

AZZ 

A XT 

AYZ 

AXZ 

BP 

BM 

B 

R 

1 

GO TO 35 

NS 

S 

II 

in 

IMM 

AXX 

ATT 

AZZ 

AXY 

AYZ 


-G<I-X»J«Lfl) +G<i-IiU»L.X> 

= G ( 1 1 J+ 1 « L + l ) «G< I« J-X.L+i ) 

-G ( 1 1 J+l * L-X ) +G ( I » J-X *1.-1 ) 

= -81 ( J ) *OGJ 

= A1 ( I ) *OGI -SX(I)*GY ♦CA*AO(I> +SA*YP 
= GY +S A* AO ( I ) -CA*YP 
= R0(I)*(C1(K) *OSK -SZ(I)* S Y +SYAW) 

= H*(U*U +V*V) 

= OXY + W*W 
= OIX<AAO*.2*00) 

= FH*SZ( I ) 

= X. *SX<I)*SX<I> +SZ(I)* H Z 
= V -U*SX(I) -W*HZ 
= H*U*U 
5 H*AV*AV 
= FH*W*W 
= H*U*AV 
= AV*W 
= U*W 

= RX ( I ) * ( AA -UU) 

= fh*aa -ww 

= -<AXX*SXX<I) +AZZ*SZZ(I) -CUM 'fUM ) *SXZ ( I ) ) «GY 
-TX*H*<CA*<U*U -V*V) * C S A +SA)*U*V 

-QXY*(U*AO(I) +V*yP)) 

= ABS<U*AX(in 
= ABS < AV*BX ( J ) ) 

= ABS { FH*W*CX <K ) ) 

= R0<I)*3ETA*AA/AMAXX( AXT»A Y r*AZTi (X. -RO(I))) 

= A*AXT 
= A*AYT 
= A*AZT 
, AA ) GO TO 33 
= AXX»A2(I) 

= <F*AA - VV ) *B2 < J ) 

= AZZ*C2 ( K ) 

= »RX<I)*<AA*SX(I) +UV)*<AB ♦ AB ) 

= - ( AA*HZ YM ) * ( BC +BC) 

= -UM*(AC *AC) 

= A XX 
= AXX 

= -AXX -AXX -OX* ( AYY *AZ7> 

= AXX*DGII *ATY*OGJU ♦AZZ*OSKK 

+AXY*OGIJ *AYZ*OGJK +AXz*DGIK fR 

= NS +X 
= SIGNCX..U) 

= S 

= I -II 
= IM -II 
= UU*A2< I ) 

= VV*B2 ( J ) 

= WW*C2(K) 

= B.*S*UV*AB 
= 8.*VW*8C 
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AXZ 

3 

e.*s*uri*AC 

6XX 

s 

tea «uu ) * A 2 ( i > 

err 

s 

(F*aa -vv)* 82 (j) 

8ZZ 

r 

<FH*aa -Wrf)*C2<K) 

BXY 

s 

» ( QQ*SX ( I ) +UV ) * ( AS + AB ) 

BYZ 

s 

-(QQ*HZ +Vtf ) * ( BC +BC > 

BXZ 

3 

• UW* ( AC + AC ) 

AQ 

3 

AA/aa 

DELTAS 

3 

BXX*OGI I ♦8YY*DG JJ ♦BZZ*OGKK 

1 


+BXY*DGI J *8 YZ*OG JK +BX?*OGIF 

0611 

S 

G < I « J« D »G(in,j,u -G(in,j,L) +g ( inn » j , l ) 

1 


♦ A3 ( I ) *QGI 

OGJJ 

3 

G ( I • J« L ) -S(I*J-ltL) -G ( I f J-l i L ) + G2 ( I ) 

1 


-B3 ( J) *OGJ 

OGKK 

3 

G(I«J*L) -6 ( I * J , L"1 ) ”G ( I » J » L-l ) +GK2 ( I , J ) 

1 


♦ C3 ( K ) *OGK 

DGIJ 

3 

G(I.J.L) -G(in,J,L) 

1 


-G ( 1 1 J-l i L ) *G ( 1 M t J-l.L) 

OGIK 

3 

G ( I « J < L ) -G(I,J,L-1) 

1 


•G(ln«J«L) ♦G(IM,J,L-1) 

OGJK 

3 

G(I.J.L) -6 ( 1 1 J « L-l ) 

1 


-G<I,J-1»L) +G(I« J-1»L-1» 

GSS 

3 

AXXnDGI I ♦AYY*OGJJ ♦AZZ*OGKK 

1 


+AXY*OGIJ ♦AYZ»DGJK + AX7.*DGIK 

B 

S 

. 5* ( AQ -l.)*(AXX +AXX 4.AXY +AXZ ) 

BP 

3 

AQ*BXX -<t, -S)*tj 

BB 

3 

AQ*BXX -(1. + S)*B 

3 

3 

-AQ*(BXX + BXX +QZ*(BYY + BZZ) ) 

1 


♦ ( AQ -1. ) *(2.*( AXX +AYY + AZZ ) ♦AXY +AYZ 

R 

3 

(AQ -l.)*GSS ♦AQ*0£LTAG +R 

35 IF (ABS(R).LE.ABS(FR)) Go TO 37 

FR 

3 

R 

IR 

3 

I 

JR 

3 

J 

KR 

3 

K 

37 R 

3 

R -AYT*(Gl(I) -GU.J-lt|)> 

1 


-AZT*(GK1( I« J) -G ( I t Jt L-t > ) 

B 

3 

B -AXT -ATT -AZT 

Bn 

3 

Bn +AXT 

B 

3 

i « / ( a -Bn*C(i-m 

c ( 1 1 

= 

B*BP 

32 0(1) 

3 

B* ( R -BM*0(I-1)) 

CG 

3 

0. - 

I 

3 

13 

DO 42 n= 

It 1 13 

CG 

3 

0(1) -C(I)*CG 

IF (ABS(CG). 

LE.ABS(OG) ) GO TO 43 

OG 

S' 

CG 

IG 

3 

I 

JG 

3 

J 

KG 

3 

K 

43 G2 ( I ) 

= 

61(1) 

G1(I) 

5 

G(I'J'L) 

GK2 ( 1 1 J ) 

3 

GKl(I.J) 

GKl(Ii J) 

3 

G(ItJtL) 


♦ AXZ) 
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6(I«J,D s G( I* J«L) »C6 
42 I =1-1 

J = J +1 

IF (J -KY) 31*51.61 

51 IF d2.GT.ITE2(K) ) 13 = ITE20O 
IF (IT£2(K) .EQ.MX) 13 r LX 

00 52 Is|l*I3 

L V = IABSU -IA8S(IV(I*K) J ) 

ROd) = AMINO(LV.IASSdVd«K) > > 

52 Rl < I > = LV 

GO TO 31 

61 N = NO 

1 = LX +1 

IF* (K.LT.KTE1.0R.K.GT.KTE2) GO TO 71 
10 = NX +2 -13 

00 62 1=10*13 

DGI s GU + l.KY.L) -SlI-l.KY.L) 

OGK = 6< I.KY.L+1) -GK2 ( I * K Y) 

U s A 1 ( I } *OGI +C A* AO ( I ) +SA*SO(I*K) 

W = Cl ( K ) *OGK ♦SYAW 

FH = AO ( U *A0 ( 1 ) +SO(I*K»*SO(i,K) 

V s B1(KY)*C1. ♦SX(IJ*SX(I) +FH*SZ(U*SZ(I» ) 

62 G(I»KVT1,L) = G(I*KY-1,L) 

I •( C A*SO ( I*K) -SA*AO(I) +U*SX(I) +FH*W*SZ( I) i /V 

1 =10 

IF dO.NE.ITEl(K)) GO TO 71 
E = G ( 13 « KY* L ) -GdO.KY.L) 

NO = NO +1 

EO(NO) = EO(NO) +P3* ( £ -EO(NO)) 

N s NO 

71 IF (I.LE.Il) RETURN 
I =1-1 

E so. 

IF dVd.KJ.NE.tl GO TO 77 
ZZ = Z -TYAW*AOd»*AOd> 

73 IF (ZZ.GE.ZO(N-l)) GO TO 75 
N = N -1 

GO TO 73 

75 R s (22 -ZO(N-l) ) 7 < ZO < N ) -Zo(N-l)) 

£ = R*EO ( N ) Ml. -R ) *E0 ( N-l ) 

77 M = NX +2 -I 

G ( I *K Y+l , l ) 3 G( M* K Y-l * L ) -E 
G { M *KY*l *1 ) s G(I.KY-l.L) «•£ 

GK2(H,KY) s GK1 ( -I, KY) 

GKl(M.KT) 5 G<M.KY,L) 

G(M.KY*L) s Gd.KY.L) +E 

GO TO 71 

ENO 


C 


SUBROUTINE xsweep 

COLUMN RELAXATION 

COMMON G(193«26*4)«SEPl* 



4^ t* W »-» s<r> U-POtNH 
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AO <193) ,SEP2,A1<193) , SEP3. A2 ( 193 ) ,SEP4, A3 (193) ,SEP5, 
BO (26) ,S£P6,B1(26)»S£P7, 82(26) , S£P8« B3( 26 ) , SEP 9 « 

CO (33) ,S£P10,C1<33) , SEPU , C2 ( 33 ) ,SEpl2, C3( 33 ) , SEP13, 
SO (193, 33) .SEP14, £0(129) , SEP15, ZO < 129 ) ,SEP16, 
IV(193*33)*SEPl7tITEi(33), SEP10 , ITE2 ( 33),S£Pi9. 
NX,NY,f4Z,KT£l,KTE2,KSYn,ScAL,SCAL2* 

YAW, CYAN. S YAW, ALPHA, C A , SA . FWACH, N1 , N2 , N3, 10 
COMMON/FLO/ 6K1 ( 193 , 26) , BUF1 , GK2 ( 193, 96 > , BUF2, 

SXX(193), BUF3, SXZ( 193) , BUF.4, SZZI 193) , 8UF5, 

SX(193) ,BUF6,SZ( 193), BUF7.R0 (193), BUFB,ftl( 193), BUF9, 
C(193), BuF 10, 0(193), BUF 11, 61(193), BuF12, 62 ( 193 ) , 
STRIP, PI, P2,P3, BETA, FR.IR, JR , KR , DG, 16, U6, K6, NS 
CONHON/SWP/ G10 ( 26 ) ,SPA1« 620(26) , SP A2, 630 ( 26 ) , SPA3, 690 ( 26) , 

1 IliI2,K,L,MO,LX.MX,KY,«Y,Tl,AA0,Ql,a2,Z,TTAW 


N = NO 

J1 =2 

IF (FMACH.6E.1, ) 


J1 = 3 


C(J1-1) = 

D(J1-1) = 

S = 

II = 

I = 

DO 12 J=2,KY 
RO(J) = 

Rl( J) 

Gl< J) 

12 G21J) 

21 IP 


0. 

0. 

1. 

1 

12 


>1 


= 1 . 

= 1 . 

= 610 ( J) 

= 620 ( J) 

= I +11 
Il“l = I -II 

J2 = KY 

IF <IV<I,K).LT.2.AND,I.GT.LX) J2 = NY 
LV = I ABS ( 1 -IABS( I V( I , K) ) ) 

RO(KY) = AMIN0(LV,IA8S(IV(I,K) ) ) 

Rl(KY) = LV 

AC = Tl*Al(I)*Ci(K) 

DO 32 J=J1»J2 


AB 

BC 

YP 

A 

H 

FH 

OGI 

OGJ 

QGK 

DGII 

l 

OGUJ 

l 

OGKK 

t 

OGIU 


-Tl*Al(I)*81(d) 

-T1*B1 ( J ) *C1 ( K ) 

SO ( I , K ) +30 ( J ) 

1. -RO(J) +A0 ( I ) *A0 ( I ) ♦ YP* YP 

RO(J)/A 

RO ( J ) * A 

S* ( G ( IP, J, L ) -Gl(d)) 

G(I» J+1,L) -G(I«U-1,L) 

G ( I , J , L+l ) -6X1(1, U) 

G ( I + 1 < J , L ) -6(1, J,L) -6(1, J»L) 

+A3 ( I ) *DGI 

G ( I , J+l , L ) -G(I«J«L) »G ( I , J , L ) 

-B3 ( J ) *OGJ 

G ( I , J , L + l ) -G ( I , J « L ) -G ( I , J , L ) 

+C3 ( K ) *DGK 

G ( 1+1 , J+l , L ) -G(I-1,J+1, L ) 


1 

OGIK 

1 


-6(1+1, J-l.L) +G( 1-1 , J-1,L) 
G ( 1 + 1 « U « L + l ) -G ( 1+1 , J, L— 1 ) 
-G ( 1-1 , J, L+l ) +G ( 1-1 , J, L«1 ) 


♦6(1-1, d,L) 
♦6(1 , J-l, L ) 
+6(1, J,L-1) 
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S3 


06 JK 

= G(It J+l'L+l) -6(It J-l.L+l) 

1 

-G< It J+l.l-1) ♦G(I. J-l.L-I) 

gy 

= — B 1 ( J ) *UG J 

u 

= 61(1) *OGI -SX(I)*GY +CA*AO(I) +SA*YP 

V 

= GY +SA*AO(I) -CA*YP 

w 

= R0(J)*(C1(K)*DGK -SZ<I)*SY +SYAW ) 

QXY 

= H* ( U*U +V*V) 

QQ 

= QXY + W*W 

AA 

= OimAA 

HZ 

= FH*SZ ( I ) 

F 

= 1. +SX<I)«SX(I) ♦SZ(I)^hZ 

AV 

= V -U*SX(I) -W*HZ 

uu 

= H*U*U 

vv 

- H»AV*AV 

ww 

= FH*W*W 

uv 

= H*U* AV 

vw 

= A V*W 

uw 

= U*W 

AXX 

= R1 ( J ) * ( AA -OU) 

AZZ 

s FH*AA -WW 

R 

= • ( AXX*SXX ( I ) + AZZ*SZZ ( I ) .(UW +UW)*SXZ 

1 

»T1*H* ( C A* ( U*U -V*V) ♦•( sA +SA)*U*V 

2 

-9XY*(U*A0(I) +V*yP ) ) 

AXT 

= ABS ( U* A1 ( I ) ) 

AYT 

= ABS( AV*61 ( J) ) 

AZT 

= ABS ( FH*W*C1 ( K ) ) 

A 

= R0< J)*BETA»AA/AHAXlt AXT. Ayr. AZT, (1. -R0(. 

AXT 

= A* AXT 

ATT 

= A* AYT 

AZT 

= A*AZT 

IF <90. GE 

.AA) GO TO 33 

AXX 

= AXX*A2 ( I ) 

ATT 

= ( F*A A - VV I *62 ( J ) 

AZZ 

= AZZ*C2(K) 

AXT 

= -R1 ( J ) * ( A A*SX ( I ) +UV ) * ( A0 +AB) 

AYZ 

= -<AA*HZ +VW ) * ( BC +BC) 

AXZ 

= -UW*(AC +AC) 

0P 

= AYY 

BM 

= AYY 

B 

= -ayy -AYY -91*<AXX +AZ7) 

R 

= AXX*OGII +AYY*OGJJ ♦AZZ*OGKK 

1 

GO TO 35 

+ AX Y*OGI J ♦AYZ*OG«JK +AXz*DGIK +R 

NS 

= NS +1 

AXX 

= UU*A2 ( I ) 

ayy 

= VV*B2<J) 

AZZ 

= WW*C2(K) 

AXY 

= 8 . *S*UV* AB 

AYZ 

= 8 . * VW*BC 

AXZ 

= 8. *S*UW*AC 

BXX 

= (QQ - JU ) * A2 ( I ) 

BYY 

= ( F*09 - VV ) *B2 ( J ) 

BZZ 

= ( FH*QQ -WW)*C2(K) 

8XY 

= -<OQ*SX(I) +UV ) * ( AB +AB ) 

byz 

= - ( 90*HZ +VW ) * ( BC +BC) 
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BXZ 

r 

-UU * ( AC + AC ) 

AQ 

r 

AA/QQ 

OELTAG 


BXX*OGII ♦BYY*OGJd ♦BZ2*0GKK 
+ 8 XY*QGI J 4-8YZ#0G JK +BX7.*0GIK 

OGII 

- 

Gd.JtU -G(I*,J,(.) -G(xi4,J,L) +G2(J» 

+A3 ( I ) *OGI 

OG J J 

= - 

G(I«J«U) -G(IfJ-l«L) -G( I • J-liL) +G( 1 « J-2 • L ) 
-B3< J)*DGJ 

OGKK 

= 

G(I*J,L) -G(I»J,L-1) ”G ( 1 1 J * L-l ) +GK2 ( I , J ) 
+C3 ( K ) *DGK 

OGI J 

= 

G ( 1 « J«L) -G(IM,J,L) 

-G ( 1 4 J-l 4 L ) +G(IMfJ-l»L) 

OGIK 

s 

G ( I f J» L ) -G( I » J f L"1 ) 

-G(ln«J«L) ♦G(IM, J.L-1) 

OG JK 

— 

G(I.J.C) -G ( 1 1 J i t”l ) 

-G ( I » J-l tk.) +G ( 1 1 J-l « L“1 j 

GSS 

= 

AXX*OGII f AYY*OGJJ +AZZ*OGKK 
+AXY*OGIJ +AYZ*OGJK +AXz*DGIK 

BP 

r 

AQPBYY 

BM 

3 

BP -(AS -1 . ) * ( A YY 4-AYY +AXY +AYZ) 

a 

= 

-BP -BP -82*A8* ( BXX +BzZ) 


35 IF ( A8S ( R ) • 
F ft a 

I R = 

JR = 

KR = 

37 R = 

1 

B = 

8H a 

B = 

C ( J ) a 

32 0(J) = 

CG = 

J 3 

DO 42 Nsdi, 
CG = 

IF (ABS(CG) 
OG = 

IG = 

JG = 

KG = 

43 G2(J) a 

6l(J| a 

GK2(I,J) a 
GKKI.J) a 
G(I,J,L> a 
42 J = 

IF (IVUiK) 
OGI a 

OGK a 

U a 

W a 


+<AQ -1. )*<2.*<AXX +ATY +AZZ) +AXY + AYZ +AXZ) 
(AS )*GSS +A8*OELTAG +R 

LE.ABS(FR)) GO TO 37 
R 
I 
J 
K 

R -AXT*(G1(J) 

-AZT*(GK1(I,J) 

B -AXT -ATT 
BM +ATT 

1,/(B -BM*C(J-1)) 


■G ( IM« Jt L) ) 
-G( Ii ) 
-AZT 


: B*BP 
8* ( R -BM*0(J-1)) 

0. 
i J2 
J2 

D(J) -C ( J ) *CG 
• LE . ABS ( 06 ) ) GO TO 43 
CG 
I 
J 
K 

Gl< J) 

G(I. J,U 
GKKI.J) 

G ( I « J « t) 

G ( I « J • L ) -CG 
J -1 

.LT.2) SO TO 51 
S*(G(IP.KT,L) -G21KY) ) 

G ( 1 1 K Y « L + l ) -GK2 ( I «KT ) 

AI(I)»as: +CA* AO ( I ) +SA*SO ( 1 1 K ) 

Cl ( K ) *OGK +SYAW 
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51 


53 


FH = AO(I)*AO(I) +S0 < I * K ) *S0 ( I « K ) 

V = B1(KYH>(1. ♦SX(I)*SX(I> +FH*S2(I)*SZ(I>) 

G ( I *K Y*1 * L ) = G<I,KY-1,L) 

1 -<CA*SU(I.K) -SA*AO(I) +U*SX(I> +FH*U*SZ< !>)/!/ 

IF ( I • Ml , I TE l ( K ) ) GO TO 61 
M = NX +2 -1 

£ = G(N.KY*L) -G ( I * KY * L ) 

MO = NO +1 

EO(NO) = EO(NO) +P3* ( E -EO(NOJ) 

N = NO 

TO 61 

(I.GT.LX) GO TO 61 
= 0 . 

( I V ( 1 < K ) « NE« 1 ) GO TO 57 

= Z -TTAW*AO(I)*AO(I) 

(ZZ.GE.ZO(N-l) ) GO TO 55 
= N -1 


55 


57 


61 


71 


72 


GO 

IF 
E 

IF 
22 
IF 

N = 

GO TO 53 
* = 

£ = 

M = 

G(I.Kyn.L) 
G(M,KY+1,L> 
GK2(M,KY) 
GKKN.KY) 
G(M,KY*LJ 
IF (I.Eq.nX) 
IF TI.EQ.2J 

I - 
GO TO 21 

S 

II 
I 

00 72 
Gl< J) 

G2 ( J ) 

GO TO 
EMO 


<ZZ — ZO(N-l) ) / ( 20 ( N ) -Zo(N-l)) 

R*EO ( N ) 4(1. -R)*E0(N-1) 

NX +2 -I 
= G(M,KY-1.L) -E 
= G(I,KY«1,L) ♦ £ 

= GK1(.1»KY> 

= G( M * KY * L ) 

= li(IiKYil) ♦ £ 

GO TO 71 
RETURN 
I +11 


- 1 . 

-1 

II 


-1 


J=2,KY 

= G30 ( J ) 
= GAO ( J ) 

21 


C 


1 

2 

3 

4 

5 

6 
7 


SUBROUTINE VELO (K.L.SV.SM.CP.X.Y) 

calculates SURFACE speeo sv.mach NUMBER^ SM. PRESSURE COEFFICIENT CP 
ANO COORDINATES X,Y AT SPaM STATION K 
COMMON G(193*26*4) * SEP1 • 

A0(193)*SEP2*AK193) . SEP3» A2 (193) *SEP4* A3( 193) . SEPSi 
BO (26) ,SEP6.B1(26>.SEP7,B2(26)*SEP8,B3(26),SEP9, 

CO ( 33) * SEP10 * Cl ( 33 1 » SEP11 , C2 ( 33 ) « SEP12 « C3 ( 33)*S£P13« 
S0(193»33).SEP14tE0Cl29),sEP 15*20(1 29 )*SEP16* 

IV (193.33) *SEP17,ITE1(33) . SEP18 , ITE2 ( 33 ) *S£P19* 
NX.NY.NZ.KTei.KTEZ.KSYM.ScAL.SCALZ* 
YAvl.CYAW,SYAw,ALPHA,CA,SA,FMACH*Nl*N2*N3,I0 
DIMENSION SV(l)«SM(l)*CP(l).X(l)«Y(i) 

ITEl AMO ITE2 ARE LOWER ANO UPPER TRAILING EOSE POINTS 
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11 = ITE1<K) 

12 = IT£2<K) 

C SURFACE IMOEX IS Nr + t 
J = NY *1 

Q1 = ,2*FMACH**2 

T1 = l./( ,7*FMACH**2) 

00 12 1=11. 12 

C DEYE RMINE MULTIPLIER H OF SfiUARE ROOT TRANSFORMATION 

YP = SO ( I « K ) +30<J) 

H = AO ( I ) * AO ( I ) + YP* YP 

C DETERMINE SLOPES SX.SZ OF SHEARING TRANSFORMATION 

OSI = S0( 1*1 »K) -SO 1 1-1 1 K ) 

OSK = SO < 1 , K + l ) -S0(I,K-1) 

SX = A 1 ( I ) *OSI 

SZ = C1(K)*0SK 

C OETERMINE FIRST DIFFERENCES OF POTENTIAL 

OGI = G(I+1«J,L) -G(I-1.J,L> 

DGJ — G ( I » J+l * L ) -G(I,J-1»L) 

OGK a G ( I « J • L+l ) -G(I,J.L-1) 

C DETERMINE VELOCITY COMPONENTS U,V,W 

U a A1 ( I ) *OGI +SX*B1 ( J ) *DG J +CA*AO(I) +SA*YP 

V = -81 ( J) *OGJ *SA*A0U) -Ca*YP 

W = Cl ( K ) *DGK +SZ*Bl(U)*DGd +SYAW 

C OETERMINE SURFACE SPEED SV.MACH NUMBER SM. PRESSURE COEFFICIENT CP 
QQ a 0. 

IF ( H. GT . 1 • E-6 ) QQ = (U*U *V*V)/H + W*W 

0 = SORT (90) 

IF <u.lt.o.) a = -a 
SV(I) = a 

aa = l. ♦ai*<i. -aai 

SM(IJ = FMACH*Q/SQRT(8Q) 

CPU) a. Tl*( 8Q**3. 5 -1.) 

C OETERMINE SURFACE COORDINATES X # Y 

X(I) a .5*SCAL*(A0(I)**2 -S0<I»K>**2> 

12 Y ( I ) = SCAL*AO(I)*SO(I»K) 

RETURN 

END 


SUBROUTINE CPLOT <Il.I2,FMACH.X,Y.CP> 

C PLOTS CP AT EQUAL INTERVALS IN THE. MAPPED PLANE 
DIMENSION K00E<2> »LINE(100 > « X< 1 > . Y U J .CPU I 
OATA K0DE/1H ,1H*/ 

I WRIT a 6 
WRITE (IWRIT.2) 

2 FORMAT (50H0 PLOT OF CP AT EQUAL INTERVALS IN THE MAPPED PLANE/ 
1 10HO X »10H Y ,10H CP ) 

CPO = (d, ♦,2*FMACH**2>**3.5 -1 . ) / ( . 7*FMACH**2 ) 

C CPO IS STAGNATION PRESSURE COEFFICIENT 

C SET LINE TO 8LANK SYMBOLS 

DO 12 1=1,100 
12 LINE(I) a KOOE(l) 

00 22 1 = 11,12 
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C SET K PROPORTIONAL TO CP 

K = 30 . * ( CPO -CPU) ) +4.5 

C SET ELEMENT K OF LINE TO ♦ ■ SYMBOL 
LINE(K) = KOOE ( 2 ) 

WRITE ( I WRIT .6X0 ) X ( I ) . T C I ) t CP 1 1 ) . LINE 
22 LINEOO = KOOE ( I ) 

RETURN 

610 F0RMAT(3F10.4,100A1) 

END 


SUBROUTINE FORCF <U,I2,X,YtCP«AL»CHoRD,XM,CL»CO,CM) 
CALCULATES SECTION LIFT. 0RA6 AND MOMENT COEFFICIENTS 
BY TRAPEZOIDAL INTESRATION OF SURFACE PRESSURE 
DIMENSION XU), Y<1), CPU) 

RAD = 57.2957795130823 

alpha = al/kao 


CL 

a 

0. 

CO 

= 

0. 

CM 

s 

0. 

N 

s 

12 -1 

00 12 

1 = 11, N 

OX 

s 

(X(I+1) -X ( I ) ) /CHORD 

OY 

= 

(YU+1) -YU)) /CHORD 

XA 

a 

( , 5*(X( I+l ) + X{ I ) ) -XHI/CHORO 

YA 

s 

. 5* ( Y ( I+l ) +Y(I))/ChORD 

CPA 

a 

. 5* ( CP ( I+l ) +CP ( I ) ) 

OCL 

a 

-CPA*0X 

OCO 

a 

CP A*0 Y 

CL 

s 

CL +DCL 

CO 

a 

CO +0C0 

12 CM 

s 

CM +OCO*YA -OCL*XA 

ROTATE 

CL AND CO TO DIRECTION OF FREE STREAM 

OCL 

S 

CL*COS(ALPHA) -CD*SIN( ALPHA) 

CO 

a 

CL*SIN< ALPHA) +CD+C0S ( ALPHA ) 

CL 

a 

OCL 

RETURN 



ENO 




SUBROUTINE TOTFOR ( KTEl , KTE2 , CHORD, SCi_ » SCO, SCM, CO , SCALZ , XM. 
1 CL,CO,CMP,CMR«CMY) 

CALCULATES TOTAL LIFT, ORAG ANO MOMENT COEFFICIENTS 
IN DIRECTION NORMAL TO LEAOINS EDGE 

BY TRAPEZOIDAL INTEGRATION OF SECTION FORCE COEFFICIENTS 
SPANWISE FORCE IS NOT CALCULATED 

CM P IS PITCHING MOMENT COEFFICIENT REFERRED TO MEAN CHORD 
CMR IS ROLLING MOMENT COEFFICIENT REFeRREO TO SEMI-SPAN 

cmy is tawing moment coefficient referred to semi-span 

DIMENSION CHOROU),SCLU) ,SCOU) ,SCM(1) ,C0(1) 

SPAN - SCALZ«<C0<KTE2) -CO(KTEl)) 
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CL =0. 

CO = 0. 

CMP = 0. 

CMR = 0. 

CMY = 0. 

S =0. 

N = KTE2 -1 

00 12 KcKTE1,N 

02 = .5*SCAL2*(C0(K*1) -CO(K)> 

2 = „5*SCAL2*(C0(K+1) ♦CO(K)) 

CL = CL ’+02*(SCL(K + l)*CH0RQ(K'tl) *SCL ( K ) *CHORO ( K ) ) 

CO = CO +02*(SC0(K+1 )*CHORO(K+1) +SCO ( K > *CHORO ( K ) ) 

CMP = CMP ■fO2*<SCM(K'fl)*CH0KO(K*l)**2 +SCM(K)*CH0R0(K)**2) 

CMR = CMR ♦Z*02*(SCL(K+1)*CH0R0(K+1) +SCL ( K > *CHORD ( K > > 

CMY = CMY +2*02*(SC0(K + l)*CH0Rr)(K + l) +SCD ( K) *CHORD ( K ) > 

12 S = S ♦02*<CHORO(K+1> +CH0RQ( K ) ) 

CL = CL/S 

CO = CO/S 

CMP = CMP#SPAN/S**2 +XH*CL 

CMR = ( CMR +CMR)/(S*SPAN) 

CMY = ( CMY +CMYJ/(S*SPAN) 

RETURN 

ENO 


SUBROUTINE CHARTY 

c generates mach no charts in plane of. wing planform 

COMMON G(l93»26,4) « SEPl « 

AO (193) ,SEP2,a 1(193),SEP3.A2(193) .SEP9 , A3 ( 193) ,SEP5. 
BO (26) ,SEP6, 81(26 )«S£p7, 82(26 ) ,SEP8, 63(26 ) ,SEP9, 
C0(33),SEPI0,C1(33>,SEP11.C2(33),SEP12,C3(33),SEP13, 
S0(193,33),SEP19,E0(129 ),sEP15,2D(129),SEP16, 

IV ( 193,33), SEP1T, ITEK33) .SEP18,ITE2(33),SEPi 9. 
NX,NY,NZ,KTEl,RTE2,KSYM,ScAL,SCAL2* 

YAW.CYAW.SYAW, ALPHA, CA,SA.FMACH,N1,N2,N3, 10 
DIMENSION LV ( 33 ) 

IWRIT =■ 6 
LX = NX/2 +1 

MX = NX +1 

KY = NY +1 

MY = NY +2 

Q1 = ,2*FMACH**2 

00 2 K=2,NZ 
LV(K) = MY 

IF (IV(LX.K).LE.O) LV(<) = KY 
2 CONTINUE 

WRITE (IWRIT, 12) 

12 FORMAT (42H0UPPER SURFACE MACH NO CHART IN WING PLANE) 

LI = 1 

IM = NX 

21 DO 22 L=l,3 

BUFFER IN (Nl.l) (G(l,i,L) ,S(MX,MY,L) ) 

IF (UNIT(Nl) .GT.O. ) GO TO 101 
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22 

CONTINUE 



K = 

1 

31 

K = 

K +1 


L = 

LV(K) 


N = 

1 


II = 

NX/2 +1 


KI = 

0 


JJ = 

2 


KJ = 

1 

33 

I = 

II 


J = 

JJ 


IF (J.LT.L) 

GO TO 35 


J = 

NY 

35 

YP = 

SO ( I • K ) *30 ( J) 


H = 

AO ( I ) * AO ( I ) +YP*YP 


DSI = 

SO ( I+l • K ) -SO(I-ltK) 


OSK = 

SO ( I « K + l ) -SO(I.K-l) 


SX = 

Al(I) *OSI 


sz = 

C1(K)*0SK 


OGI = 

G(I+l«J«2) -G(I*1*J,2) 


OGJ = 

G 1 I * J + l ' 2 ) -G ( I ? J"1 1 2 ) 


OGK = 

G(I«J,3) -G ( I « J. 1 ) 


IF (J.LT.U 

GO TO 37 


M = 

NX *2 -I 


OGI = 

. 5* ( OGI ♦G(M-liJ«2> “G ( ki+1 . J. 2 ) ) 


OGJ = 

. 5* ( OGJ +3(M. J-1.2) -G( v|, J+l. 2) ) 


OGK = 

• 5*( OSK +S( M« J, 3 ) -G(M,j,l)) 

37 

U = 

Al ( I ) *OGI *SX*Bl( J)*OGJ +C A*AO ( I ) 


V = 

-B1(J)*0GJ +SA*AOd) -Ca*YP 


W = 

C1(K)*0G« *SZ*81( J)*0GJ +SYAW 


QQ = 

(U*U +W*V)/H +W*W 


F = 

i. +ai* ( l • -au> 


a = 

0. 


IF (F.GT.O.) 

0 = SORT ( BQ/F ) 


IF ( LI* ( I - 

■II) +J -JJ) 41,45,43 

41 

QO = 

Q 


I = 

I +LI 


J = 

GO TO 35 

KY 

43 

Q = 

. 5* ( o +aoi 


L = 

MY 

45 

N = 

N +1 


IV(N.K) = 

100 . *FMACH*B 


IF (H.EQ.IM) SO TO 51 
IF (JJ.NE.KY) GO TO 47 
KI = LI 

KJ =0 

47 II = II +KI 

JJ - JJ +K J 

GO TO 33 

51 IF (K.ES.nZ) GO TO 61 
00 52 1=1, MX 

00 52 J=1,MY 
G ( l « J. 1 ) = G(I«J«2) 

52 G(I«J«2) - G(I«J<3) 


+SA*YP 
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BUFFER IN (Nl,l> (G(l,l,3) ,G(MX,MY,3) > 

IF (UNIT(Nl) .GT.0. 1 GO TO 101 
GO TO 31 

61 00 62 1=2, N 

62 WRITE (I WRIT, 610) ( I V ( I , K ) , K=2 , NZ ) 

IF (Ll.EQ.-l) GO TO 91 

REWlNO N1 
LI = -1 

IM =2 

WRITE ( I WRIT , 600 ) 

WRITE ( IWRIT , 72 ) 

72 FORMAT(92HOLOWER SURFACE MACH NO CHART IN WING PLANE) 
GO TO 21 

91 10 =1 

RETURN 

101 10 = 0 

RETURN 

6oo format ( ihi ) 

610 F0RMAT(1X,32I4) 

END 


SUBROUTINE refin 

c INTERPOLATES POTENTIAL AT MESH POINTS OF REFINED GRIO 
C SUCCESSIVE SLICES OF THE G ARRAY , REPRESENTING VALUES OF POTENTIAL 

C ON X-T PLANES AT SUCCESSIVE VALUES OF Z.aRE READ 

C FROM ONE OISC FILE.UPOaTEU,ANO WRITTEN ON A SECOND QISC FILE 

COMMON G(193«26,9)»SEP1, 

1 AO (193) ,SEp2,Al(193),SEp3,A2(193) ,SEp4, A3( 193 ) ,SEp5» 

2 BO (26) ,SEP6,B1(26)*S£P7,B2(26) ,SEPB,B3(26) ,SEP9, 

3 CO (33) ,SEP10,C1(33),SEP11,C2(33) , SEP12 , C3( 33 ) , SEP13, 

9 S0(193«33),S£Pl9,£u(l29),sEPl5«Z0(129),SEPl6* 

5 IV(193,33),SEP17,ITE1(33) , SEP1B, ITE2 ( 33 ) , SEP19, 

6 NX,NY,NZ,KTH,KTE2,KSrM,ScAL,SCALZ, 

7 YAW, CYAN, S YAW, ALPH»,CA,SA.FHACH,N1,N2,N3,I0 


MX 

= 

NX +1 

ky 

s 

NY +1 

MY 

= 

NY +2 

MZ 

= 

NZ 91 

MXO 

= 

NX/2 91 

MYO 

s 

NY/2 92 

MZO 

S 

NZ/2 91 

K 

= 

1 


C interpolate potential array g 

C REA0 SLICE OF POTENTIAL ARRAY FROM FIRST DISC FILE 
11 BUFFER IN (Nl,l) 15(1,1,1) ,G(MXO*MYO,i) ) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT (Nl) . GT , 0 • ) GO TO 901 

c shift values to locations in new grid 

J = NY/2 91 

JU = KY 

21 I = MXO 

II = MX 
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31 G<II,JJ,1) = 5 ( I » J 1 1 ) 

I =1-1 

ii = ii -a 

IF (I.ST.O) GO TO 31 
J = J -1 

JJ = JJ -2 

IF (J.GT.O) GO TO 21 
C INTERPOLATE IN X 
00 42 J=l,KY,2 
00 42 1=2, NX. 2 

42 G ( I « J. 1 ) = ,5*<G< I+l, J,l> +G<I-1,J»1>> 

c interpolate in y 

00 52 1=1, NX 
00 54 J=2,NY,2 

54 G(I»J.i> = . 5* < G ( I » J+l » 1 ) +G( I* J-l« i ) ) 

52 G ( I , MY, 1 ) = 0. 

C WRITE SLICE OF INTERPOLATED POTENTIAL ARRAY ON SECOND OISC FILE 
BUFFER OUT ( N2 * 1 ) ( G { 1 , 1 , U , S ( NX , MY, l > | 

C GIVE UP IN EVENT OF OISC FAILURE 

IF ( UNIT ( N2 ) « GT , 0 « ) GO TO 401 
c INCREMENT z 

K = K +1 

IF (K.LE.MZO) GO TO 11 
REWINO N1 
REWIND N2 

C REAU FIRST TWO SLICES OF POTENTIAL ARRAY FROM SECOND DISC FILE 

buffer in (N2,d <s(i,i,n ,G(Nx,my,d i 

C GIVE UP IN EVENT OF OISC FAILURE 

IF <UNIT<N2J .GT.O. ) GO TO 401 
BUFFER IN ( N2 , 1 ) ( G ( 1 , l . 3} .G ( MX , MY. 3 ) ) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF ( UNIT (N21.GT.0,) GO TO 401 

C WRITE FIRST SLICE OF POTENTIAL ARRAY ON FIRST OISC FILE 
BUFFER 0UT<N1,1) <G(l,i,l).G(MX,MY,l>) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT(Nl).GT.O.) GO TO 401 
K =1 

c increment z 

111 K = K +1 

c interpolate in z 

00 112 J=1,MY 
00 112 1=1, MX 

112 G ( I , J , 2 ) = . 5* ( G ( I , U, 1 ) +6(1, J, 3)) 

WRITE TWO SLICES OF INTERPOLATED POTENTIAL ARRAY 
ON FIRST QlSc FILE 
DO 122 L=2,3 

BUFFER OUT(Ni.l) ( G ( 1 , 1 , L ) , G ( MX , MY , L ) ) 

C GIVE UP IN EVENT OF DISC FAILURE 

IF (UNIT(NI) .GT.O. ) GO TO 401 
122 CONTINUE 

IF (K.EO.MZQ) GO TO 201 
C SHIFT SLICES OF POTENTIAL ARRAY 
00 132 U=l , MY 
00 132 1=1. MX 
132 G(I,J,1) = G ( I « J, 3 ) 
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C READ SLICE OF POTENTIAL ARRAY FROM SEcONO OISC FILE 
SUFFER IN ( N2 * 1 ) ( S< 1 , 1 , 3) * G < MX, MY * S) ) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT(N2) .GT.O. ) GO TO **01 
GO TO 111 

201 REWIND N1 
REWINO N2 

C SET VALUES OF POTENTIAL AT DUMMY POINTS BEHINO BOUNDARY 

C REAO FIRST ThREE SLICES OF POTENTIAL &RRAY FROM FIRST OISC FILE 

00 202 L=1 * 3 

BUFFER IN ( Nl « 1 ) ( G < 1 , 1 , L ) , G < MX , MY ,L ) > 

C GIVE UP IN EVENT OF OISC FAILURE 
IF CUNIT(Nl) .GT.O. ) GO TO 401 

202 CONTINUt 

C WRITE FIRST SLICE OF POTENTIAL ARRAY ON SECOND DISC FILE 
BUFFER OUT ( N2 « 1 ) (S(l'ltl) ,G(MX,MY,1) » 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNITIN2) .GT.O. ) GO TO 401 
TYAW = . 5*SCAL*SYAW/CYAW 

NO = KTEl -1 

EO(NO) = 0. 

K =2 

211 2 = SCALZ*CO ( K ) 

N = NO 

1 = MXO +1 

IF (K.LT.KTE1.0R.K.GT.<T£2) GO TO 231 

11 = ITEl(K) 

12 = ITE2 ( K ) 

C ITEl AND ITE2 ARE LOWER ANO UPPER TRAILING EDGE POINTS 

00 212 1=11,12 

C OETERMINE SLOPES SX.SZ OF SHEARING TRANSFORMATION 


OSI 

s 

S0(l4l,K) 

-S0(I-1*K) 

QSK 

s 

SO ( I , K+l ) 

-S0(I,K-1) 

SX 

= 

A 1 ( I ) *OSI 


SZ 

s 

Cl ( K ) ♦OSK 


OGI 

s 

G ( 1+1 , KY , 2 ) 

-G ( 1-1 , KY , 2 ) 

QGK 

s 

G ( I , KY , 3 ) 

-G(I.KY,1) 

U 

s 

A1 ( I ) *OGI 

♦ CA*AOU> +SA*SO ( I , K ) 

W 

r 

CX(K)*OGK 

♦ SYAW 

FH 

s 

AO ( I ) * AO ( I ) 

+S0 ( I , K ) *S0 ( I , K ) 

V 

= 

B1 ( KY J * ( 1 • 

+SX*SX +FH*S7*SZ) 


C SET POTENTIAL BELOW SURFACE TO SATISFY BOUNDARY CONDITION 

212 6(1 » KY+1 » 2 ) = G ( I , K Y-i , 2 ) 

1 - { C A*SO ( I , K ) -SA*AO(I) + U*SX +FH*W*SZ)/V 

NO = NO +1 

C RESET TRAILING EOGE JUMP EO IN POTENTIAL 

EO(NO) = G ( 1 2 , K Y , 2 ) -G(I1,KY,2) 

N = NO 

I =11 

IF (K.NE.KTE2.0R. YAW.LE.O. ) GO TO 231 
C RESET JUMP £0 IN POTENTIAL ALONG SIDE EOGE OF DOWNSTREAM TIP 

221 I = I +1 

M = NX +2 -I 

NO = NO +1 

EO(NO) = G ( M » K Y » 2 ) - 


G ( I , K Y , 2 ) 
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IF (I.LT.MXO) GO TO 221 
I = II 

231 I = I -1 

E =0. 

IF <IV(I.K).NE.l> 60 TO 237 
C IV = 1 INOICATES VORTEX POINT 

c Interpolate jump e in potential 

c to set potential at dummy point below vortex sheet 

22 = Z »TY AW* AO <11**2 

233 IF (ZZ.GE.ZO(N-l) ) GO TO 235 
N = N -1 

GO TO 233 

235 R = (22 -ZO(N-1))/(ZO(N) -20lN-l>> 

E a R*£0 ( N ) 4(1. -R)*EO(N-li 

237 R = NX *2 -I 

G(I'KY+1«2I = G( M« KY-1 1 2 ) -E 
G(M*KY+1.2> = G<I,KY-1,2) +E 
IF (IV(I.K).NE.-l) GO TO 241 

C IV = -1 INDICATES POINT JUST BEYOND EqGE OF WING OR VORTEX SHEET 

C RENORMALIZE POTENTIAL ON EITHER SIDE OF CUT AT MEAN VALUE 

G<I.KY«2> = • 5*G ( 1 1 Kr • 1 ) 4.25*(6(I,KY«3> 4 G(M»Kt«5)> 

IF ( I V ( I « K4l ) .LT.l ) 

1G(I,KY*2) = « 5*G ( I » K Y i 3 ) ♦,25*C 6( I « KY • 1 ) +G(M*KY,1)> 

G(M*KY»2) = G(I,«Y,2) 

G ( 1 1 K Y”1 » 2 ) = • 5* ( G ( I • R Y « 2 ) 4G< I . KY-2 * 2 ) ) 

G < Mi K Y”1 » 2 ) = . 5* ( G( M • X Y * 2 ) 4tt ( Mt KY-2 « 2 ) ) 

241 IF (I.ST.2) GO TO 231 
IF (K.EU.NZ) GO TO 261 
C SHIFT SLICES OF POTENTIAL ARRA* 

00 252 J=1«MY 
00 252 l=ltMX 
G(I.J,1) a 6 ( 1 1 J< 2 ) 

252 G(I,J,2) = G ( I • J 1 3 ) 

C WRITE SLICE OF UPDATED POTENTIAL ARRAY ON SECOND DISC FILE 
8UFFER OUT ( N2 • 1 ) I G< 1, 1 « 1 ) ,G( MX, MY,1 )) 

C GIVE UP IN EVENT OF DISC FAILURE 

IF (UNIT(N2) .GT.O. ) GO TO 401 
C READ SLICE OF POTENTIAL ARRAY FROM FIRST OISC FILE 

buffer in (ni.d <g<i,i, 3) ,6<MX,MYt3> i 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT(NI).GT.O.) GO TO 40l 

c increment z 

K = K 41 

GO TO 211 

261 E0(N04l) = 0. 

C WRITE LAST TWO SLICES OF POTENTIAL ARRAY ON SECOND OISC FILE 

00 262 L=2,3 

BUFFER OUT ( N2 « 1 ) (G(l,liL)*G(MX,MYtL) » 

C GIVE UP IN EVENT OF DISC FAILURE 

IF (UNIT(N2) .GT.O. I GO TO 401 

262 CONTINUE 
REWINO Nl 
REWIND N2 

C COPY FINAL VALUES OF POTENTIAL ON FIRsT DISC FILE 
00 302 K=i * HZ 
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BUFFER IN (N2*l) (5(1,1. 1) ,G(MX,MY.1> ) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF ( UNIT ( N2 ) . GT. 0, > GO TO 401 
BUFFER OUT ( Ml • 1 ) (G(l.l.l) ,G(MX,MY,1> ) 

C GIVE UP IN EVENT OF DISC FAILURE 

IF ( UNIT (Nl).GT.O.) GO TO 401 
302 CONTINUE 

C SET 10 TO INOICATE SUCCESSFUL COMPLETION 

10 =1 

return 

C SET 10 TO INOICATE DISC FAILURE 

401 10 =0 

RETURN 
END 


SUBROUTINE SflOO 
C SMOOTHS POTENTIAL 

C BY REPLACING THE VALUE AT EACH POINT gY A WEIGHTED AVERAGE 

C OF THE VALUES AT NEIGHBOURING POINTS 

C SUCCESSIVE SLICES OF THE G ARRAY .REPRESENTING VALUES OF POTENTIAL 

c on x-y planes at successive values of z.are read 

c from one disc file, updated, ANO written on a second disc file 

COMMON 6(193,26,4) ,S£P1, 

AO (193) ,SEP2,A1(193),S£P3,A2(193) , SEP4 , A3 ( 193 ) ,SEP5, 
B0(26).SEPS,Bl(26).SEP7,B2(26),SEPtl.B3(26),SEP9« 

CO (33) ,SEPiO,Cl(33) , SEPli . C2 ( 33 ) , SEP12 , C3 ( 33 ) , SEPl3 , 

SO (193, 33) ,S£P14,E0(129) ,SEP15,Z0(129) .SEH16, 
IV(193,33) ,sEpl7,I(Cl(33) , SEplB, ITE2 ( 33) , SEP19. 
NX,NY,Nz,KT£1,KTE2,KSYM,ScAL,SCALZ, 

YAW,CYAW,SYAW, ALPHA, CA,SA.FHACH,N1 ,N2,N3, 10 


MX 

= 

NX 

♦ 1 

KY 

s 

NY 

+ 1 

MY 

s 

NY 

+2 

HZ 

= 

NZ 

+ 1 


C set SMOOTHING PARAMETERS 
PX = l*/6, 

PY = 1./6, 

PZ = 1*26, 

C READ FIRST THREE SLICES OF POTENTIAL ARRAY FROM FIRST DISC FILE 

00 2 L=l,3 

BUFFER IN ( M 1 , 1 ) (5(1, 1,L) ,G(MX,MY,L) ) 

C GIVE UP IN EVENT OF DISC FAILURE 

IF (UNIT(Nl) .GT.O. ) GO TO 5l 
2 CONTINUE 

C WRITE FIRST SLICE OF POTENTIAL ARRAY ON SECOND DISC FILE 

BUFFER OUT ( N2 * 1 ) ( G ( 1 , 1 , 1 ) , G < MX , M Y, 1 ) > 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT(N2) .GT.O. ) GO TO 51 
K =1 

C INCREMENT Z 

11 K = K +1 

C GENERATE SMOOTHED VALUES OF POTENTIAL FOR MIDDLE SLICE 



278 


00 12 J=3,NY 
00 14 1=2. NX 

14 G ( I , J. 4 ) = Cl. -PX -PY -PZ)*G(I. J.2) 

1 4.5*PX*(G<I41,U,2) ♦GCI-i.J.2)) 

2 4.5*PY*(G(I«j4l,2) 4GCI.J-1.2)) 

3 + • 5*PZ* (GCI.J.3) 4GCI»J,tn 

G( 1 . J, 4 > = GC1.J.2) 

12 G ( MX , J, 4 | = GCMX.J.2) 

C LEAVE BOUNDARY VALUES UNCHANGED 

00 16 1=1, MX 
GCI.1,4) = G ( I , 1 , 2 ) 

GCI.2,4) = G ( 1 « 2 . 2 ) 

GCI.KY.4) = G ( I , KY « 2 ) 

16 G ( I .MY* 4 ) = G( I « MY, 2 ) 

C WRITE SLICE OF UPOaTEO POTENTIAL ARRAY ON SECOND DISC FILE 

BUFFER OUT ( N2 , 1 ) CG(l,l,4),G(MX,MY.4)i 

C GIVE UP IN EVENT OF 0ISC FAILURE 

IF (UNITCN2) .GT.O. ) GO TO 51 
IF (K.EQ.NZ) GO TO 31 

C SHIFT SLICES OF POTENTIAL ARRAY 

00 22 J=1,MY 

00 22 1=1, MX 

G< I, J.l) = G( I, J,2> 

22 GCI.J.2) = GCI.J.3) 

c read slice of potential array from first disc file 
buffer in (ni.d (G(i,i,3),gcmx,my.3h 

C GIVE up IN EVENT OF OISC FAILURE 

IF (UNIT(Nl) .GT.O. ) GO TO 51 
GO TO 11 

C WRITE Last slice of upoateq potential array on secono disc file 
31 buffer OUT ( N2 , 1 ) < G { 1 . 1 . 3 ) ,G ( MX , MY, 3 ) ) 

C GIVE UP IN EVENT OF UlSC FAILURE 

IF (UNITCN2J.GT.0.) GO TO 51 
REWIND N1 
REWIND N2 

C COPY FINAL VALUES OF POTENTIAL ON FIRST DISC FILE 

00 42 K=1,MZ 

BUFFER IN (N2.1) ( G < 1 , 1 , 1 ) » G < MX , MY , 1 ) > 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNITCN2) .GT.O. ) GO TO 51 
BUFFER OUT(Nl.l) ( G( 1 , 1 , 1 > , G ( MX , MY , 1 >) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF ( UNI TCND.GT.O.) GO TO 51 
42 CONTINUE 

C SET 10 TO INDICATE SUCCESSFUL COMPLETION 

10 =1 

RETURN 

C SET 10 TO INDICATE OISC FAILURE 

51 10 =0 

RETURN 
ENO 
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SUBROUTINE SPLIF(M«N,S,F,FP,FPP.FPPP.KH,VM.KN,VN»MODE,FQM,IND) 
CUBIC SPLINE 

SPLINE IS FITTED TO DATA ARRAY F AT NoOES S 
FROM INDEX M TO INOEX N 

KM =■ 1,2 OR 3 INDICATES THAT FIRST, SECOND OR THIRD DERIVATIVE 
IS GIVEN VALUE VM AT POINT M 

KN = 1,2 OR 3 INDICATES THAT FIRST, SECOND OR THIRD DERIVATIVE 
IS GIVEN VALUE VN AT POINT N 

IF MOOE = 0 NOOAL VALUES OF FIRST, SECOND AND THIRD DERIVATIVES 
OF SPLINE ARE STORED IN FP,FPP AND FPPP ARRAYS 
SO THAT FITTED VALUE AT A DISTANCE H BEYONO A NODE IS 
F + FP*H ♦FPP*H**2/2. +FPPP*H**3/6 

IF MOOt GT 0 FPPP IS GIVEN THE NOOAL yALUES OF THE INTEGRAL OF F 
INSTEAD OF ITS THIRD DERIVATIVE, STARTING KITH THE VALUE FQM 
THEN THE THIRD DERIVATIVE CAN BE RECOVERED AS 
(FPPII+1) -FP(I> )/(S(I+l) -S<I>> 

INO IS SET EQUAL TO 0 IF S IS NOT A MONOTONE ARRAY 
DIMENSION SUI ,F(1>.FP(1>,FPP(1) ,FPpP<l> 



INO 

= 0 


K 

= IABS(N -M) 


IF (K - 

1) 61,81,1 

1 

K 

= (N -M)/K 


I 

a M 


J 

= M +K 


OS 

= S( J) -S(I) 


0 

= DS 


IF (OS) 

11*81,11 

11 

OF 

= ( F ( J ) *F(I))/OS 


IF (KM 

-2) 12,13,14 

12 

U 

= .5 


V 

GO TO 25 

= 3 • * ( OF -VM ) /OS 

13 

U 

= 0. 


V 

GO TO 25 

= VM 

14 

U 

- -I , 


V 

GO TO 25 

= -DS* VM 

21 

I 

= J 


J 

= J +K 


DS 

= S< J) -S(I) 


IF ( D*OS ) 81,81,23 

23 

OF 

= ( F ( J ) “F ( I ) ) /OS 


B 

a l./(OS +DS +U) 


U 

= B*OS 


V 

= B*(6,*0F »V) 

25 

FP(I) 

= U 


FPP(I) 

= V 


U 

= (2. -U)*OS 


V 

a 6,*0F +DS*V 


IF (J - 

N) 21,31,21 

31 

IF (KN 

•2) 32,33,34 

32 

V 

GO TO 35 

= ( 6 , * VN -V)/U 

33 

V 

= VN 
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GO TO 33 


34 

V 

= ( OS* VN +FP P<I)>/(1. ♦FPfD) 

35 

8 

= V 


0 

= DS 

41 

OS 

= S( J) -S(I) 


u 

= FPP { X > -FP(I)*V 


FPPP (I) 

= (V -U)/DS 


FPP < I ) 

= U 


FP(I) 

= (F(U) -F<I))/OS *0S* ( V *U 


V 

= U 


U 

= I 


I 

= I -K 


IF (U -M» 

41.51,41 

51 

I 

= N -K 


FPPP(N) 

= FPPP(I) 


FPP(N) 

= 8 


FP( N) 

= OF +0# ( FPP ( I ) +B ♦8)/6. 


INO 

= 1 


IF ( MODE ) 

81 , 81 « 61 

61 

FPPP ( J ) 

= FQM 


V 

= FPP(U> 

71 

I 

= J 


U 

= J +K 


US 

= S(U) -S(I) 


U 

= FPP < J 1 


FPPP ( U> 

= FPPP ( I J +.5*0S*(F(I» *FfU) 


V 

= U 


IF (U -N) 

71,81,71 

81 

RETURN 

eno 
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SUBROUTINE INTPL < MI, NI,SI,FI,M»N»S.F.FP. FPP, FPPP, MODE) 
INTERPOLATION USING PIECEWISE lATLOR SERIES 
AS GENERATED BT CUdIC SPLINE OR ITS INTEGRAL 

values f.fp.fpp and fppp of function ano its first, second 

ANO THIRO DERIVATIVES ARE GIVEN AT NODES S 
FROM INDEX N TO INDEX N 

INTERPOLATED VALUES FI ARE GENERATED AT POINTS SI 

FROM INDEX «I TO INOEX NI 

IF MOOE GT 0 A CORRECTION IS ADDED 

FOR A PIECEWISE CONSTANT FOURTH DERIVATIVE 

SO THAT INTEGRAL OF CUdIC SPLINE IS EVALUATED EXACTLY 

DIMENSION SI(1),FI(1),S(1),F(1) ,FP< t ) ,FPP< 1 > , FPPP ( 1 > 

K = IABS( N -M) 

K = (N -M)/K 

I = M 

HIN = MI 

NIN = NI 

D = S(N> -S<4) 

IF ( D* ( Si ( NI ) -SKMIl)) 11,13,13 
11 MIN = NI 

NIN = MI 
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13 

KI 

= IASS ( NIN -MIN) 


IF (KI) 

21 « 21 « 15 

15 

KI 

= (NIN -MIN ) /KI 

21 

II 

a MIN -KI 


C 

= 0. 


IF (MOOE) 31,31,23 

2$ 

C 

= 1. 

31 

II 

= II +KI 


SS 

= SKII) 

33 

I 

= I +K 


IF (I 

-N) 35,37,35 

35 

IF ( D* ( S ( I ) -SS)) 33,33,37 

37 

J 

a I 


I 

= I -K 


SS 

a SS -S( I ) 


FPPPP 

a C*(FPPP(J) -FPPP ( !))/(! 


FF 

a FPPP ( I ) +,25*SS*FPPPP 


FF 

= FPP(I) +SSWFF/3. 


FF 

= FP ( I ) +, 5*SS*FF 


FI ( II ) 

= F ( I ) +SS*FF 


IF (II 

-NIN) 31,41,31 

41 

RETURN 

END 



C 

C 

C 


C 


11 

12 

It 

16 


22 


24 


SUBROUTINE GRAPH (IPL0T,Il*I2«X»Y,CP.TITLE»FMACH»YA«AL 
1 2 «CL«COiCHOROO> 

GENERATES CALCOMP PLOT OF WING SECTION 
ANO SURFACE PRESSURE COEFFICIENT 
DIMENSION X(l)«Y(l),CP(l)tTITLE(12) t R(12) 

IF CIPLGT.GE.O) GO TO 11 

INITIALIZE PLOTTER IF IPLOT LT 0 

CALL PLOTSBL (1000 * 2 THAN TON Y JAMESON X109403) 

DEFINE origin 

CALL PLOT(1.25,1.0,-3) 

WRITE TITLE AND FLOW PARAMETERS 
ENCODERS, 12, R(U ) TITLE 
FORMAT ( 12A4 ) 

CALL SYMBOL(0.,0.,.14,R,0.,48) 

ENCODE(40,14,R<1) ) FMACH , Y A, AL 

FORMAT ( 4HM = , F8, 3 , 3X» 6HYAW = , F5 , 2 , 3x, 6HALP = ,F5.2) 
CALL SYMBOUO. ,-.25, ,14«R,0. ,4»> 

ENCOOE(40,16,R<1) ) Z,CL,CO 

FORMAT < 4HZ = , F8. 2, 3X, 5HCL = ,F6,ih3x, 5HCD = ,F6,4) 

CALL SYMBOUO. ,-.5, ,14,R,0. ,401 
SCALE ANO TRANSLATE PROFILE 
XMIN = X(I1) 

00 22 1=11,12 

XMIN = AMIN1 ( X ( I ) , XMIN ) 

SCALE = 5./CHORDO 

DO 24 1=11,12 

X(I) a (X(I) -XMIN)*SCALE +.5 

Y { I ) = Y(X)*SCALE +.75 


, 
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C LOCATE FRONT STAGNATION POINT 

CPMAX = 0. 

IMAX = II 

N1 = II +1 

N2 = 12 >1 

00 26 I=N1.N2 

IF (CP(I).LE, CPMAX) GO TO 26 
CPMAX = CP(I) 

IMAX = I 

26 CONTINUE 

N =12 .11 +1 

C ORAW PROFILE 

CALL LlN£(X<H) ,r<Il> . Ntl»0«l«0,il, »0. .1. > 

C SHIFT ORIGIN 

CALL PLOT (0..4.5.-3) 

C ORAW VERTICAL AXIS 

CALL AXISCO, .-3, .2HCP.2.8. *90. «1.2»-.i*.0) 

C MARK CRITICAL PRESSURE COEFFICIENT ON AXIS 

CPC = (((5. +FMACH**2)/b. )**3.5 -1 . ) / ( . 7*FMACH**2 ) 

IF (CPC. GE. -2.0) CALL SYMBOL ( 0 . . -2. 5*CPC . . 40 , 15, 0 . » -1 ) 

C PLOT LOWER SURFACE PRESSURE COEFFICIENT 

00 32 1=11 • IMAX 
IF (CP(I).LT.-2,0) SO TO 32 
CALL SYMBOL(X(I) ,-2.5*CP(I) . . 0 7 , 3. 45, , -1 ) 

32 CONTINUE 

c plot upper surface pressure coefficient 

00 34 I =1 MAX . I 2 

IF (CP( I) .LT.-2.0) SO TO 34 

CALL SYMBOL (X( I) «-2«5*CP( I) t .07.3.0. « .1 ) 

34 CONTINUE 

c shift origin for next plot 

CALL PL0T(12, ,-4.3, -3) 

RETURN 

ENO 


SUBROUTINE threeo (iplot.sv.sm.cp.x.y. title. ya.al. 

1 VLO.CL.CO.CHOROO) 

c generates drawing of wing and three dimensional plots 
c of pressure coefficient over UPPER and lower surfaces 

COMMON G(193«2b.4) iSEPl. 

AO (193) .SEP2.A1I193) ,SEP3, A2I193) . SEP4. A3( 193) ♦ SEP5. 
30(26) .SEP6.BK 26) .SEP7. 82(26 > »SEp8,B3( 26) ,SEP9. 

CO (33) ,SEP10.C1(33) , SEP11 , C2 ( 33 ) , SEP12 . C3( 33 ) .SEP13. 
SO (193. 33) ,SEP14,E0(129) , sEP15 , ZO ( 129 ) .SEP16, 

IV( 193.33) ,SEPl7,ITEi(33) , SEP18 . ITE2 ( 33 ) .SEP19, 
NX.NY.NZ.KTEl,KTE2.KSYM,ScAL,SCALZ. 

YAW. CYAW.SYAW. ALPHA. CA.SA.FMACH.N1.N2.N3. 10 
DIMENSION X ( 1 ) , Y ( 1 > .SV(1).SM(1) »CP(D .TITLE (12) .R(12) 

LX = NX/2 +1 

MX = NX *1 

MY = NY +2 

C SET HORIZONTAL AND VERTICAL SHIFTS 
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SX = 2. 

TX = 3.5 

ST = 2.75 

OY = s./NZ 

IF (IPLOT.GE.O) GO TO 1 

c initialize: plotter if iplot lt 0 

CALL PLOTSBL(1000*24HANTONY JAMESON X109403) 

C DEFINE ORIGIN 

CALL PLOT(l. 25*1. 0,-3) 

1 M =1 

C WRITE TITLE FOR ORAWInS OF WING 

ENCODE! 12*2«R(1>) 

2 FORMAT ( 12HVIEW OF WINS) 

CALL STMB0L(2. . .5* .14*R,0. *12) 

C READ FIRST THREE SLICES OF POTENTIAL ARRAY FROM OISC FILE 

11 00 12 L = l,3 

BUFFER IN (Nl.l) ( G ( 1 , 1 , L ) . G ( MX, M Y * L ) ) 

C GIVE UP IN EVENT OF OISC FAILURE 

IF (UNIT(NI).GT.O.) GO TO 101 

12 CONTINUE 

K =2 

C INCREMENT z 

21 K = K +1 

IF (K.GT.KTE2) GO TO 61 
C SHIFT SLICES OF POTENTIAL ARRAY 

00 22 J=1,MY 
00 22 1=1, MX 
G< I* J,1 ) = G< I. J.2) 

22 G ( I , J . 2 ) = G ( I , J, 3 ) 

C READ SLICE OF POTENTIAL ARRAY FROM OISC FILE 

BUFFER IN (Nl.l) (G(1.1*3)«G(MX*MY«3) ) 

IF (UNIT(Nl) .GT.O. ) GO TO 101 
C GIVE UP IN EVENT OF OISC FAILURE 

IF (K.LT.KTE1) GO TO 21 

11 = ITEKK) 

12 = I TE2 ( K > 

c CALCULATE surface speeo sv.mach number sm, pressure COEFFICIENT CP 
C ANO COORDINATES X.Y OF WING SECTION 

CALL VELO (K«2,SV,SM»CP,X,Y) 

IF (K.GT.KTE1) GO TO <U 
WRITE TITLE ANO FLOW PARAMETERS 
BEFORE GENERATING PLOT AT FIRST SPAN STATION 
ENCODERS, 32, R<1) ) TITLE 
32 FORMAT ( 12 AM ) 

CALL STMBOL(<5«0»*.14«R*0.*48) 

ENCODE ( 4o , 34 , R < 1 ) ) FMACH , YA , AL 
3M FORMAT ( 4HM = «F6.3* 3X* 6HYAW = . F5 . 2 * 3x * 6H ALP = ,F5.2) 

CALL S7M80L(.5*-.25*.14*K*Q«*40) 

ENCOOE(40.36,R(1) ) VLO.CL.CO 
36 FORMAT ( 6HL^0 = , F6 . 2 , 3X. 5HCL = , F6. 4, *X , 5HC0 = ,F6.4) 

CALL STMBOH .5,-.5».14,R,0.,40) 

C SCALE ANO TRANSLATE COORDINATES AND PRESSURE COEFFICIENT 

41 XMIN = X(I1) 

00 42 1=11,12 

42 XMIN = AM1N1 ( X ( I ) « XMIN ) 
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44 

C 

C 

C 

51 
C 

C 

52 
C 

61 

C 

C 

c 

62 

64 

C 

71 

C 

101 


SCALX = 2.5/CHORDO 

SCALP = -1.25 

DO 44 1=11.12 

XU) = <X(I) -XMIN)*SCALX FSX 

YU) = Y(I)*SCALX +sr 

CPU) = SC ALP*CP ( I ) + SY 

INCREMENT VERTICAL SHIFT FOR NEXT SPAN STATION 

SY = SY +0 Y 

IF (M.EQ.2) GO TO 51 

IF M s 1 DRAW WING SECTION 

N =12 -11 +1 

CALL LINE(X(U) .YU1) .NtltO.l.O. tl.tO. tl. ) 

GO TO 21 

IF M = 2' PLOT PRESSURE COEFFICIENT OVER UPPER AND LOWER SURFACES 
N =12 -LX *1 

PLOT UPPER SURFACE COEFFICIENT AT LEFT SIOE OF PAGE 
CALL LlNE(X(LX) tCP< EX) t Ntl.O.lt 0.U..0. tl.) 

N = LX -11 +1 

TRANSLATE X COORDINATES TO RIGHT 
00 52 IsIltLX 
X(I) = X(I) FTX 

PLOT LOWER SURFACE COEFFICIENT AT RIGHT SIDE OF PAGE 
CALL LlNE<X( ID tCP(Il) t N. 1 1 0 , 1 1 0 . . 1 . , o . tl.) 

GO TO 21 

REWIND N1 

M = M +1 

SHIFT ORIGIN FOR NEXT PLOT 

CALL PLOT (12..0..-S) 

IF ( M. ST , 2 ) GO TO 71 

RESET HORIZONTAL AND VERTICAL SHIFTS 

SX = 0. 

S Y s 2*75 

write titles for pressure plots 

ENCODE! 24 , 62 , R ( 1 ) ) 

FORMAT ( 24HUPPER SURFACE PRESSURE ) 

CALL SYMBOL (0.«.5..14.Rt0.t24) 

ENC00E(24.G4|R(I) ) 

FORMAT! 24 HLOUER SURFACE PRESSURE ) 

CALL SYMBOL(3.5..5..14.R«0.«24) 

GO TO 11 

SET 10 TO INDICATE SUCCESSFUL COMPLETION 
10 =1 

RETURN 

SET 10 TO INDICATE DISC' FAILURE 
10 =0 

return 
eno 
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7 . Listing of Quasiconservation Option for Program H 

This is a listing of an option for Program H that gives 
correct resolution of the shock conditions by using the theory 
described in Section 2 of Chapter I. The results obtained from the 
option agree almost perfectly with those of an exact, or full, 
conservation form of the finite difference scheme. We do not list 
the exact form because its computation time is about forty percent 
longer than the listed option. The option is based on a centered 
finite difference approximation of a quasilinear equation for the 
velocity potential <)> combined with artificial viscosity terms in 
true conservation form. Further details about this new procedure 
will appear in a later publication . Our limited experience with it 
indicates that it does not give such a reliable overall simulation 
of boundary layer shock wave interaction as does the old Murman 
subroutine it replaces (see the seventh, eighth and ninth pages 
of the listing of Program H) . 
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LISTING OF GUftSI CONSERVATION OPTION FOR PROGRAM H 07/18/74 


****T0 USE THIS OPTION REPLACE THE SUBROUTINE MURMaN FOUND **** 

****on pages 7 thru 9 of the listing of program h by the **** 
****FOLLOWlNG new version. **** 

subroutine muRiman 

SET UP COEFFICIENT ARRAYS FOR THE T RIDIAGONAL SYSTEM USEO FOR LINE 
RELAXATION AND COMPUTE THE UPDATED PHI ON THIS LINE 
COMMON PHI <162,31) ,FP(162,31) , A<31) , B < 31 ) , C < 31 > , D ( 31 ) . E ( 31 > 

1 ,RP(31) ,RPP ( 31) , R ( 31 ) , RS ( 31 ) » R I ( 31 ) , A A ( 162 ) , B8 ( 1 62 ) » CO ( 1 62 ) 

? ,SI(1 6 2).PhIR( 162) ,XC(162) .YC(162> ,FM(l62) » ARCL ( 162 > . OSUM ( t 6? ) 

3 . ANGOLO ( 16P ) , XOLD ( 162 ) . YOLO ( 162 ) . ARCOLD ( 1 62 > , 0EL0LD(i&2) 

COMMON /A/ PI.TP.RaD.EM,aLP*RN.PCH»XP,TC,CHD.DPHI,CL,4CL,YR 

1 ,XA,YA,TE,nT.0R,DELTH,0ELR,RA.DCN,DSN,RA4,EpSIL,aCRlT.Cl,C2 

2 ,C4«C5»C6,C7*BET,3ETA«FSYM,vSEP,SEPm,TTLE(4)»M,N»MIM,nN»NSP 

3 . IK, JK, IZ,ITYP,m00E.IS.NFC.NCY,NRN.NG,I0IM.N2.N3»N4.nT.IXX 

4 , NPTS,LL,i,LSEP,M4 
DIMENSION VU ( 35 ) , RPO ( 35 ) 

OATA RPO/35*0 ./ 

8ETP = BETA+.25 

C 00 THE BOUNDARY 

RP ( 1 ) = 0. 
rP(NN) = 0. 

KK = 0 

PHIO = PHI(I,2)-2.*0R*C0(I) 

PHIrP= PHI(I, 2 )-PHI(I, 1 ) 

PHI Y Y = PHIYP+PHIO-PHIII.I) 

pHIxx = PHIcI+l,l)+PHI(I-l,l,-PHl(I,l)-PHI(I,l) 

PHIXM = PHKI + I.D-PhKI-I.I) 

PHIxP = PHI(I+ 1 , 2 )-PHI(I- 1 , 2 ) 

C CHECK FOR THE TAIL POINT 

IF (I.NE.MMJ GO TO 10 
C(l) = (Cl+Cl)*RS(l) 

A ( 1 ) = -C(1)+XA*C1-C1 

0(1) = C1*(PHIXX>RS<1)*PHIYY+RA4*C0(I)-E:(1) ) 

GO TO 40 

10 U = PHIXM*0ELTH-SI(I) 

30 = U/FP (1,1) 

OS = U*BQ 
CS = C1-C2*0S 

BO = B9*aS*(FP(I-l,l ).FP( Ifl , 1) ) 

X = RA4*(CS+QS)*C0(I) 

C(l) = ( CS+CS ) *RS ( 1 ) 

CMOS = CS-QS 

0(1) = CMQS*PHIXX*CS*RS(1)*PHIYY + RK1)*b0 + X ♦ RPP 1 1 ) 

PHIXT = BETP*ABS(U)+ABS(CMSSi 
IF (CMQS.GE.O.) GO TO 30 
C FLOW IS SUPERSONIC. BACKWARD DIFFERENCES 

KK = 1 

PHIXT b PHIXT-CMQS 
All) = -( C ( i ) +PHIXT) 

RPP(l) s CMOS*PHIXX 

0(1) - 0(1)-PHIXT*E(1)-RPP(1) 

GO' TO 40 

C FLOW SUBCRITICAL, CENTRAL DIFFERENCES 
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50 A(l) = XA*CMQS-C(1)-PHIXT 
0(1) = 0(1)-BHIXT*E(1) 

RPP(l) = 0. 

C 00 nON-BOUNOaRY points 
RO DO 60 J = 2 . N 

PHIXX = PHI(I+1«J)+PHI(I-1»J)-PHI(I«J)*PHI(I»J) 

OU = PHIXP 

PHIXP = PhI(I + 1« J + D-PhKI- 1. J+l) 

PHIxY = PHIXP-PHIXM 
PHIXM = OU 
OU = DU+DELTH 

phiym = phiyp 

PHIYP = PHI(T.J+1)-PHI(I,J) 

PHIYY = PHIYP-PHIYM 
U = R< J)*OU-sKI> 

0)/ = R ( J) *( PWl ( I * J+l )-PHI ( I , J-l ) ) *OELR 

V - OV*R< J)-cO(I) 

VV(J) = V 

RAtf = R(J)*RA*V 
BQ = l./FP(I,J) 

eau = bq*u 

US = B3U*U 

UV = ( BOU+BOU ) *\l 

V S = BQ*V*V 
OS = US+VS 

CS = Cl -C2*QS 
CMVS = CS-Vs 
CMUs = CS-Us 

c COMPUTE CONTRIBUTION OF RIGHt-HaND SIDE FROM LOW ORDER TERMS 
0< J) =RA4*< (ClMVS+US-US)*OV-UV*DU)+RI( J)*as*9Q*(U*<FP(T-l. J>- 
1 FP(I+1,J> )*RAV*<FP(I, J-1)-FP(I, J+l) ) ) 

U V = ,5*BQU*RAV 
C(J) = RS ( J ) *CM VS 
B(J) = C(J) 

0(J) = D(J)+C<J)*PHIYY-UV*PHIXY+CMUS*PHIXX+RPP( J) 

CSQS = CS/QS 
CMQS = CSQS-i . 

PHIXT = BETP*ABS(U) 

PHIYT = BETP*ABS(RAV) 

IF (ClMQS.GE.O. ) GO TO 50 

C SUPERSONIC FLOW. USE BACKWARO DIFFERENCING 
KK s KK+1 

PHIxT = PHIXT-CMQS*(US+US+ABS(UV> )tCSQS*VS 
PHIYT r PHIyT-CMQS*<RS< J)*< VS+VS ) +ABS < UV ) ) 

3 ( J ) = RS ( J ) *CSQS*'JS 
C«J) = BIJUPHIYT ’ 

A ( J ) = - < C ( J)+B< Jl+PHIXT) 

RPP(J) = CMOS*(US*PHIXX + UV+PHIXY ) 

RP(J) = CMQS*RS(J)*VS*PHIYY+RPO(J) 

RPO(J) = CMQS*UV*PHIXY 
go TO 60 

C SUBSONIC FLOW* USE CENTRAL DIFFERENCES 
50 C(J) = C ( J ) +PHI YT 
PHIXT = PHIXT+CMUS 
A ( J ) = XA*CMUS-B(J)-C(J)-PHIXT 
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RPP(J) = 0. 

RP I J ) = RPO( J) 

RPO(J) = 0* 

60 0(J) = 0< J)-PHIXT*E< JJ-RPPI J>-RP< J) 

oo ro j = 2.n 

IF <VV< JJ.LT.O.) SO TO 72 
D ( J ) = 0 ( J ) +RP t J+l ) 

GO TO 70 
72 89 s B ( J ) 

8 ( J ) = C(J) 

C(J) = B9 

0(J) = 0< JURPI J-l) 

70 CONTINUE 
75 MSP = NSP7KK 

C SOLVE THE TRIDIASONAL SYSTEM 
CALL TRIO 
RETURN 
END 



289 


8 . 4 Listing of Update for Design Programs B and D 

We start with an update for the glossary of Tape 7 parameters 

which appears on pages 105 and 106 of Volume I. 

The following two parameters have been redefined: 

NRN Integer. ABS(NRN) is the run number. If NRN 

is negative the paths in the hodograph plane 
are plotted. If NRN > 1000 the Calcomp plots 
are done on blank paper on the CIMS CDC 6600. 

TR Real. Between 0. and 1. it specifies the 

relative location of the artificial tail 
between trailing streamlines tp = 0. 

If TR > 1 the new model of the tail is chosen. 

The following two parameters have been added: 

NCR Integer. Number of constraints. If omitted 

or zero it will default to 7. NCR is added 
on Card 1, Columns 61-65 of Table 1, page 107 
of Volume I. 

TE Real. Tail extension parameter. If TE > 0 

points up to TE will be printed and plotted 
in D. For TE set to zero or omitted TE 
defaults to 1 . If TE is negative and TR <_ 1, 
TE is set to 1+0.3*CD. If TE is negative and 
TR > 1, TE is set to 1. TE is added on 
Card 10, Columns 71-80 of Table 1, page 107 
of Volume I . 
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LISTING OF UPDATE FOR DESIGN PROGRAMS 8 AmO D 08/15/74 


PAGE 129 DELETE LINES 15 AND 16 

PAGE 129 OELETE LINE 27 ANO REPLACE ST (HE FOLLOWING 
REAO ( N7 « 50 ) NP, NRN. MRP . A, AA. GAMMA , BP . CD , TR . NCR 
IF (NCR, £9.0) NCR = 7 

PAGE 129 OELETE LINE 43 ANO REPLACE ST THE FOLLOWING 
READ ( N7« 70 ) (FF(I).I = 1.64) 

IF (FF(64) .£9,0. ) FF(64) =1. 

PAGE 130 OELETE LINE 18 ANO REPLACE BY THE FOLLOWING 

50 FORMAT (3I5.9F5.3iI5) 

PAGE 130 INSERT AFTER LINE 43 THE FOLLOWING 

IF <AIMAG(CMP(4) ) .£9.0. ) CMP(4) = -CO/ ( 4.*AIMAG ( CMP( 2 ) ) «S9R 
1 T(CABS(0NE-CE(2) ) ) ) 

PAGE 131 INSERI AFTER LINE 34 THE FOLLOWING 
98(S.NRP) = FF ( 64 ) 

PAGE 131 OELETE LINES 56 AND 57 ANO REPLACE BY THE FOLLOWING 
IF(AlMAG(CHP(4) ) ,N£,0) XI ( 2. 1 > = XI ( 2, 1 ) *TMP*CMP ( 5 > /C ASS ( CMP 
1 (5)) 

PAGE 131 DELETE LINE 59 AND REPLACE BY THE FOLLOWING 
C ( 1 7 ) = 4.»b*REAL(CMP(2)*X1(2.1)*CMi>(6)) 

C(16) = CO*C ( 17 ) 

IF (C(17).E9.0.) C ( 16 ) =2 , *CD 

98 ( 4. NRP ) sAMAXKO. , C ( 1 ) * ( 1 . -TR ) *C ( t6 ) ) 

TEMP ( 20 ) = (0.,0.) 

IF (TK.GT.l.) TEMP ( 20 ) = C(16)/(4,* C MP(2) ) 

TMP = X1(2.1)*TAO(2.2)-TEHP(20) 

C ( 16 ) = . 5*C ( 16 ) 

PAGE 132 OELETE LINES 3 THRU 5 

PAGE 133 OELETE LINE 49 ANO REPLACE BY THE FOLLOWING 
CALL ABORT 

page 133 qelete line 51 and replace by the following 
call abort 

PAGE 134 INSERT AFTER LINE 12 THE FOLLOWING 
OATA NBMAX /0/ 

ISW = 0 

PAGE 134 INSERT AFTER LINE 30 THE FOLLOWING 
IF (ISW.GT.O) CALL AOJ(l.l.A) 

PAGE 134 INSERT AFTER LINE 36 THE FOLLOWING 
ISW = KK 
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PAG£ 139 INSERT AFTER LINE <f 2 THE FOLLOWING 
N8MAX = MAXO ( N8MAX, N3) 

PAGE 134 DEL£T£ LINE **9 AND REPLACE BY THE FOLLOWING 

80 WRITE <N2,130) NBMAX 

PAGE 134 DELETE LINE 58 ANO REPLACE BY THE FOLLOWIN'* 

130 FORMAT (13H OUT OF PATHS/1BH LONGEST PATH HAS ,I3,7H POINTS) 

PAGE 135 OELETE LINES 9 ANO 10 AND REPLACE BY THE FOLLOWING 
EQUIVALENCE ( CB1 , C ( 29 ) ) « ( CHI » C ( 19 ) ) . |CB2,C<37> ) , <C83,C<33> > 

PAGE 135 INSERT AFTER LINE 11 THE FOLLOWING 
CM2 = ,999*CM1 

PAGE 135 INSERT AFTER LINE 41 THE FOLLOWING 
IF (NK.GT.7) 88 ( 7 i NRP) = 0. 

TE = 88(8, nRPJ 

PAGE 137 DELETE LINES 12 ANO 13 ANO REPLACE BY THE FOLLOWING 
SUM = 400.*XR*FLOAT(NR)/<SUM*FLOAT(v|RP>> 

PAGE 138 OELETE LINES 5 THRU 9 ANO REPLACE BY THE FOLLOWING 
READ (N7*240> (O(J).J = 1*8) 

WRITE ( Nl » 240 ) (O(J) * 0 = 1,8) 

NK = NK-1 

WRITE ( Nl , 250 ) NK, (LC(J+1), J = 1,NK> 

WRITE ( Nl , 20 0 ) ( FF ( J ) , J = 1,62),XR,TE 

PAGE 138 INSERT AFTER LINE 40 THE FOLLOWING 
250 FORMAT (1615) 

PAGE 140 OELETE LINES 44 ANO 45 ANO REPLACE BY THE FullOWIN6 
IF(LL.EQ.0)CALLCUSP(X1(5,N),T(5,N),tA0(5,N) ,U(5,N),X3(5,N)) 

PAGE 141 INSERT AFTER LINE 4 THE FOLLOWING 
SS(6> = CLOG(ETA(N) ) 

C ( 20 • = AIMAG ( SS ( 6 ) ) 

PAGE 141 DELETE LINE 41 

PAGE 141 OELETE LINE 43 AND REPLACE BY THE FOLLOWING 
SS<4> = "TT ( S ) *S3 ( 3) 4 (U( 3»N ) ♦TEMPI 2o ) ) *SS ( 6) +X3 ( 1 *N I 

PAGE 142 INSERT AFTER LINE 40 THE FOLLOWING 
C20 = C(20) 

PAGE 142 INSERT AFTER LINE 47 THE FOLLOWING 
C<20> = C20 

PAGE 142 INSERT AFTER LINE 55 THE FOLLOWING 
COMPLEX TEMP 
COMMON /C/ TEMP ( 20 ) 
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PAGE l^S OELETE LINE li AND REPLACE BY THE FOLLOWING 
R = TA0(4 iI)*X1(2*I) -TEMPT 20 > 

PAGE 14 a INSERT AFTER LINE 20 THE FOLLOWING 
COMPLEX TEMP 
COMMON /C/ TEMP < 20 ) 

PAGE 1 if 3 DELETE LINE 32 AND REPLACE SY THE FOLLOWING 
R = TT(8)*Y(t)-T£MP(20) 

PAGE 143 OELEIE LINES 46 ANO 47 ANO REPLACE SY THE FOLLOWING 
T3U> = 2./(l./Tl(K*I-l)+l./T2(K)) 

10 T2( K) = 2./(l./ri(K f l)4l./T2{K) » 

PAGE 146 INSERT AFTER LINE 5 THE FOLLOWING 
B = B-TEMP(20)/£T 

PAGE 146 OELETE LINE 27 AND REPLACE BY THE FOLLOWING 
1 U< 3*1) -TEMPT 20 > 'TEMPT 201 tUT**!) > ) 

PAGE 146 DELETE LINE 51 AND REPLACE BY THE FOLLOWING 
£ = C0NJG(1./£TA(NJ ) 

PAGE 147 DELETE LINE 5 AND REPLACE BY THE FOLLOWING 

GE = PF*(U(3.J-l>4U(3*J)4B*{U(4tJ-l>+Uc4»J) ) >4T£f1P(20) 

PAGE 147 OELETE LINE 35 ANO REPLACE BY THE FOLLOWING 

BsCL0G(CMPLX(COS(C(20) )f-SIN(C(20) ) >*ETA(I) )+CMPLX(0.*C(20) > 
C(20> s AlMAST 8) 

PAGE 147 DELETE LINE 41 ANO REPLACE BY THE FOLLOWING 
B c CLOG(CMPLX<CQS(C(20> > *-SIN(C|20) > )*ETA(I ) ) 

‘ a s real(B) 

C ( 20 ) = AIMAG(0)4C(2O) 

T2 = REAL ( X ( 1 ) l*Q-AHAG( TEMP <20 ) ) *C c 20 ) 

PAGE 147 DELETE LINE 46 AND REPLACE BY THE FOLLOWING 
AQ(4l 5 (REAL(-TEMP(3)*B+Y2*X3U»I) T+SK3T »*SI(4J 

PAGE 147 OELETE LINE 56 ANO REPLACE BY THE FOLLOWING 
A (4 « N ) = (REAL(-TEMP(3)*B+Y2+X3UtIi>4SIl3))*sm> 

PAGE 150 DELETE LINE 47 ANO REPLACE BT THE FOLLOWING 
C TAIL LOGS 

page iso delete line 51 ano replace by the following 
c nose logs 

page 151 DELETE LINE 44 AND REPLACE BY THE FOLLOWING 
TT ( 4 ) s -TeMP<3)*£+<m>«-TEMP<20n*a*X3UiI> 

PAGE 156 OELETE LINE 5 ANO REPLACE BY THE FOLLOWING 
READ t N1 * 40 ) NP»NRN»MRP.EM,BP»TRfNK 
PAC = 1 . 
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IF <IA8S(NRN).GT.999) FAC = .5 

PAGE 136 INSERT AFTER LINE 11 THE FOLLOWING 
TE = AIMAG (GG) 

PAGE 156 OELETE LINES 31 THRU 33 AND REPLACE BY THE FOLLOWING 
NRN = ISIGN(«00(IA8S(NRN)i1000)*NRN) 

CALL CPLOT < (3. 0,2.0) , -3) 

C SF WILL BE THE CHORD LENGTH IN INCHES 

SF = 5. 

C DEFAULT TAIL EXTENSION TO 1 IF TR.GT.l OTHERWISE TE=1+.6*DY 

IF (TE.LE.O.) TE = l.+.6*AMAXl(0,,SIGN(CC(6) fl.OOOOl-TR) ) 

IF ((TR.GT.l.). OR. (CC(6).LE.0,)> TE = -TE 
CALL GRP (NN.NNX.TE) 

PAGE 136 DELETE LINES 39 AND 40 ANO REPLACE BY THE FOLLOWING 
XMAX = 22.*FAC 

CALL CPLOT (CMPLX( .5*XMAX,4.5) ,-3> 

SIZE = .14 
REWIND N3 

READ ( N3 1 9o ) (PG(I).I = 1*6) 

CAUL CSYMBL < (-3. 0.-3. 5) tPG.&O) 

SIZE = .07 

PAGE 156 OELETE LINE 43 AND REPLACE BY THE FOLLOWING 

CALL XYAXES ( ( 0 . * 0 . ) * 1. + 3. *X«AX/11, . 1 . ♦3.*XWAX/ll. i ‘T.4/XMAX) 

PAGE 156 DELETE LINE 45 AND REPLACE BY THE FOLLOWING 

CALL XyaXES ( (O..0.),l. + XMAX/ll.,l.+XMAX/’ll.,4.4/ , XMAX) 

PAGE 156 DELETE LINE 48 ANO REPLACE BY THE FOLLOWING 

40 FORMAT ( 315 * 20X . 3F5. 3 . 5X . F5. 3) 

PAGE 156 OELETE LINES 57 ANO 58 AND REpLACE BY THE FOLLOWING 
110 FORMAT (BF10.5) 

PAGE 157 DELETE LINE 1 AND REPLACE BY THE FOLLOWING 
SUBROUTINE GRF (NN.NNX.TE) 

PAGE 157 DELETE LINE 11 AND REPLACE BY THE FOLLOWING 
DATA 20*«X,LH.MX«Ax.NNxMAx.K /0. , 3 , p5Q , 500 . 250 , 0/ 

PAGE 157 INSERT AFTER LINE 12 THE FOLLOWING 
XT = ABS<TE) 

PAGE 158 DELETE LINE 35 ANO REPLACE 8Y THE FOLLOWING 
160 CALL SORT (MX-l.TE) 

/ 

PAGE 160 DELETE LINES 41 THRU 43 AND REPLACE BY THE FOLLOWING 
READ (N1.401 PSI(1).PX,(PSI(I), I a. 2.14) 

IF ( PSI ( 2 ) , E9. 1H1 ) PSI ( 2 ) a PX 
REAO (N1.50) (PSI(I), I = 15.30) 

IF (NK.GT.15) REAO (N1.50) (PSI(I), la 31,46) 
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PAGE ISO OELETE LINES 49 AND 50 ANO REPLACE BY THE FOLLOWING 
IA = I A3S ( I I ) 

00 10 J - l.IA 

PAGE 160 DELETE LINE 55 ANO REPLACE BY THE FOLLOWING 
IF (II.GT.O) T = T*CSQRT(l.+dP*3P/(T*T) * ONE ) *BP 

PAGE 161 DELETE lINE 1 AND REPuACE BY THE FOLLOWING 
JJ s 18 ♦ I ASS ( N< ) 

PAGE 161 DELETE LINE 5 AND REPLACE BY THE FOLLOWING 
WRITE (N2.100) ( FF ( J) » J = 1.64) 

PAGE 161 DELETE LINE 9 ANO REPlACE BY THE FOLLOWING 
40 FORMAT (lXA4,2Al,A3,lXA4,9F5.3.1XA4 t 

PAGE 161 DELETE LINES 14 ANO 15 ANO REPLACE BY THE FOLLOWING 
90 FORMAT ( ///38X » 6HT aPE 7///4Xa 4 , Al . AS* A4. F 6 ,2 » 2F5 . 2 »F 6 . 2, 2F6. 3 

1 ,F7.3,F6,3.F5.2,A4/4X,16A4/4x,16A4> 

PAGE 161 DELETE LINE 20 ANO REPLACE BY THE FOLLOWING 

2 F5.S,3X3HDY=F5.3.3X,4HT/C=FS.3/////35X*14HTAP£ 6 . PATH 0/) 

PAGE 161 DELETE LINE 25 AND REPLACE BY THE FOLLOWING 
SUBROUTINE SORT (N,TE) 

PAGE 161 DELETE LINES 3 1 AND 38 ANO REPLACE BY THE FOLLOWING 
C CHANGE CPOR ANO CPSF TO CHANGE CP ORIGIN AND SCALE FACTOR 

OATA CP*|AX,CP0R.CPSF/3..4.5t.4/ 

IF (EH.LE..7) CPOR = 4.0 
IF (EM.GE., 8 ) CPOR = 5.0 
YMN = 0. 

PAGE 161 INSERT AFTER LINE 40 THE FOLLOWING 
IF (C(3,J) .GT.. 8 ) GO TO 10 

PAGE 161 DELETE LINES 42 ANO 43 AND REPLACE BY THE FOLLOWING 
YMX = AMAXK YMX.C(4i Jl) 

10 CONTINUE 

IF (TE.ST.O.) GO TO 15 
C ADD TAIL POINT ON LOWER SURFACE 
TE = 1. 

N = N+l 
DO 12 K = 1.4 
12 C(K.N) = C ( K . 1 ) 

C ( 4. 1 ) s C(4,1»+CC(6) 

C ( 5 . N > = 100. 

15 TC = <YMX-YMN)/TE 
CC ( 5 ) = CC(5)/TE 
CC ( 6 ) = CC ( 6 ) /TE 
NPTS = N 

IF ( TE.GT.l, ) NPTS = N-l 
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PAGE 161 OELETE LINE 46 AND REPLACE BY THE FOLLOWING 
IF lC(5.N> .Ea.IOO. ) C ( 5 » N) = C(Stl) ♦ .OOOOOl 
K = IASS(NRN) 

WRITE! ( N3.90 ) RR,K,NPTS 

page igi delete line 5i ano replace by the following 

CALL XYAXES(CMPlX(-. 5»CP0R) , 1 . Al , /CpSF , 10 .-YOR-CPOR* -CPSF > 
SFX = SF 

PAGE 161 OELETE LINE 57 ANO REPLACE ay THE FOLLOWING 
YMX = CP0R-P£IN*1>/CPSF 

PAGE 162 QElETE LINES 5 ANO 6 ANO REplACE BY THE FOLLOWING 
CALL CSYHBL U-.5.-1.0) .HR, GO) 

SF = SFX 

PAGE 162 INSERT AFTER LINE 26 THE FOLLOWING 
C l 3 ♦ 0 ) = C(3*J)/TE 
C(A.J) = C(A, JJ/TE 

PAGE 162 INSERT AFTER LINE SA THE FOLLOWING 
IF (TE.GT.l.J GO TO 65 

PAGE 162 DELETE LINES 37 THRU AO ANO RrPLACE BY THE FOLLOWING 
IF <C(3»2>.E3.1. ) CALL CSYMBL ( C ( 3, 1 ), 15. -1 ) 

65 ANG = 0. 

YOR s YOP+CPOR 
SS s 1 , /( SF*CPSF ) 

CALL CSYMBL ( CMPLX ( C ( 3 , 1 ) ,-SS*C ( 5» 1 1 > * 11 . -1 ) 

00 70 K s 2 ,N 


PAGE 162 DELETE LINE A& AND REPLACE dY THE FOLLOWING 
80 FORMAT <3H Ms, FA. 3 . 5X . 3HCL=. FS, 3, SX. 3HDY=FA,3 , 6XAHT/C=FA.3> 

PAGE 163 DELETE LINE 7 ANO REPLACE BY (HE FOLLOWING 
3A0 ( S ) = CSQRT{CONJG<00)-ES(S) ,X) 

PAGE 163 OELETE LINE 9 ANO REPLACE BY THE FOLLOWING 
SF = SX*XMAX/22. 

PAGE 163 DELETE LINE 30 

PAGE 163 DELETE LINE 3A ANO REPLACE BY THE FOLLOWING 
GO TO A5 

25 IF (,“I00(-NN,3) .NE.1J GO TO 32 

PAGE 163 OELETE LINE 58 ANO REPLACE 8T THE FOLLOWING 
GO TO 50 
A5 SIZE = .28 

PAGE 16A OELETE LINE 19 AND REPLACE BY THE FOLLOWING 
IF INP.GT.O) GO TO 120 
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PAGE 164 DELETE LINE 24 AND REPLACE dr THE FOLLOWING 
120 IF (NN.GT.O) RETURN 
C SKIP PAST DATA ON TAPEl 

READ (Nl»110> (X. I - 1,7) 
c read and plot paths 

50 READ (NltllO) KK ,L, 1.4, ( < A( I , J) , I = i , IM ) , PSI ( U) , J - l.L) 
c ****CHECK FOR END OF FILE**** 

IF (EOF(Nl) .NE.O) RETURN 

c check for supersonic path 

IF (KK.GT.O) GO TO 150 
IF (NRN.GT.O) GO TO 50 
C PLOT THE PATH OR FORK 

IF (L.LE.l) GO TO 50 
CALL CPLOT ( A( 5, 1 ) ,3) 

DO 140 U = 2,L 
140 CAUL CPLOT ( A(5« J) ,2) 

150 IF (L.NE.l) GO TO SO 

C CHECK TO SEE IF SUPERSONIC PATHS WERE WRITTEN ON TftPEl 
IF (KK.GE.9) GO TO 50 
READ (NltllO) I A t ( ET A ( I ) 1 1 = 1,IA) 

READ (NltllO) 1 3 , ( SEE ( I ) 1 1 = 1,18) 

NN = -KK 
X = ETA(IA) 

GO TO 25 

page isb delete line i ano replace ar the following 

N = i10D(IABS(NRN) ,1000) 

PAGE 168 DELETE LINE 5 AND REPLACE ST THE FOLLOWING 
IF (lABS(NRN) .GT.100Q) GO TO 50 
CALL PLOTS (60,10) 

RETURN 

C PLOT ON UNLINED PAPER 
50 CALL PLOTS0L (60,10) 

PAGE 168 DELETE LINE 19 ANO REPLACE 8T THE FOLLOWING 
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